$| = 1;
use strict; use warnings;


print "exercise 4\n";

print "please enter a word:";
chomp (my $word = <STDIN>);

my $letter = "g/i";
while (<>) {
    chop;
    foreach $letter (split) {
        if ($letter eq $word) {
            print "$_\n";
            my $score ++;
        }
    
    }
}
print " number of A in word: $score\n"