Or... without some maps:

my @names=qw/tom tom tom green/;
$_{$_}++for@names;print"$_=$_{$_}\n"for keys%_;
[download]

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;