Select Code to Download

@string = <IN1>;
chomp @string;
...
foreach my $s (keys %result) {
        print "$s => $result{$s}\n";
        }

@string = <IN1>;
chomp @string;
...
     print "$string => $result\n";
     }