@string = <IN1>;
chomp @string;

while ( my $string = <IN1> ) {
    chomp $string;
    my ( $value ) = values %seq;
    my $result = () = $value =~ /$string/ig;

     print "$string => $result\n";
     }