Select Code to Download

while ( <MYFILE> ) {
   chomp;
...
   my $key_to_reduce = join ".", "$subc", "$state";
   print "$key_to_reduce\t$amount\n";
}

while ( <MYFILE> ) {
   # not needed if you don't use last field 
...

   print "$key_to_reduce\t$amount\n";
}