Bueno, el código que muestras es una copia de
este otro, del año 2011.
Y no funcionará nunca, porque hay errores muy graves. He arreglado algunos, como por ejemplo poner los ';' al final de las sentencias. Pero otros los he dejado, como el caso de la última línea del programa (y las líneas 4 y 5), que no tiene nada que ver con Perl, sino más bien con un programa tipo
shell O incluso con instrucciones que no existen, como el caso del extraño 'chopm' (debería ser 'chomp').
Pero aún arreglando los fallos del programa, tampoco resolvería tu problema. El programa no hace lo que quieres que haga.
Te vuelvo a poner la solución (una de ellas). Primero debes leer la información de la Tabla 2. Luego, recorrer las líneas de la Tabla 1, agregarle la última columna, y sacar el resultado hacia la Tabla 3.
¿Crees que puedes resolverlo con esta pista? Se parece algo a lo que nos has mandado. La primera parte está casi bien entre las líneas 11 y 18. Luego hay que hacer un bucle como en las líneas 11 y 12, otro split, sacar el ID, y con ese ID, agregamos la última columna.
¡Ánimo!, que casi lo tienes.