Select Code to Download

@_ = qw (opt pot top stoop stop pit ipt);

opst counted 1 times
oopst counted 1 times
opt counted 3 times
ipt counted 2 times

use strict;

...
{
    print "$_ counted $h{$_} times\n";
}

opst counted 2 times
opt counted 3 times
ipt counted 2 times