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