$listdata="results.txt";
open (list, "<$listdata") or &error("Unable to open the data file for reading");

while (<list>){
my($line) = $_;
chomp $line;
($abreviatura,$regiao,$latitude,$longitude,$pais,$admin1,$admin2,$cidade) = split(/\|/,$line);
if ($abreviatura =~ /^$localidade/ ){

if ((length($localidade) < 2) & (length($abreviatura) > 1)) {
goto cont;
}

if ((length($nexacto)>1) & (length($localidade) < length($abreviatura))){
goto cont;
}

if ((length($country_code) < 3) & ($country_code !~ /$pais/gi )){
goto cont;
}

$cc = $pais;
$adm1= uc ($pais.$admin1);

if (length($adm1) < 3){
$adm1 ="N/A";
}



$adm2 = $admin2;
if ($pais !~ /US/gi){
$adm2=$pais.$admin2;
}
if (length($adm2) < 3){
$adm2 ="N/A";
}

$pais = $codes{$pais};
if (length($pais) < 1){
$pais = $cc;
$adm1 = $codes{$adm1};

if ($cc !~ /US/gi){
$adm2 = $codes{$adm2};
}

if (length($adm1) < 1){
$adm1 ="N/A";
}
if (length($adm2) < 1){
$adm2 ="N/A";
}

....starts showing results...