use warnings; open (ABREFILE, "Abrevlist.txt"); #Abre la lista de abreviaturas while (){ #Lee cada línea chomp; $abrev = $_; ind_sec(); #Envia la primer línea (abreviatura) a la subrutina } sub ind_sec{ open (NOMBREFILE2, "NombreFile.txt"); #Abre el archivo con nombres while ($line = ){ if ($line =~ m/^$abrev\s/g){ #Buscar la abreviatura en la cada línea del archivo con nombres print "$line"; #si la sentencia se cumple imprime la línea } # else{ #si la abreviatura no se encuentra print "\t-"; # quiero que imprima la abreviatura con - por delante } } } close(ABREFILE); close(NOMBREFILE2);