@string = <IN1>;
chomp @string;

foreach my $string (@string) {
     foreach $key (keys %seq) {
        chomp $string;
         study $seq{$key};
       my @matches = ($seq{$key} =~ /$string/ig);
        #print "@matches\n";
        $result{$string} = scalar(@matches);
        }

foreach my $s (keys %result) {
        print "$s => $result{$s}\n";
        }

##</code><code>##

@string = <IN1>;
chomp @string;

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

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