while (<>) {
    while (/([a-z]+)/g) {
        my $word = $1;
        $$word++;
    }
}
print "I've seen the word 'compiler'\n" if $compiler;
# similar checks for a few other variables here