use strict;

my %h;

@_ = qw (opt pot top pit ipt);
for ( @_ )
{
    $h{join "", sort split "", $_}++;
}

for ( keys %h )
{
    print "$_ counted $h{$_} times\n";
}
[download]