while (my $string = <IN1>) {
        chomp $string;
        #my ($value) = values %seq;
        foreach $value (values %seq) {
        my $result = () = $value =~ /$string/g;
         print "$string => $result\n";
        }
}