Select Code to Download

d the
a quick
...
d the
a lazy
n dog

the quick brown fox jumps over the lazy dog

#!/usr/bin/perl
use warnings;
...
for my $pos (sort { $seen{$a} <=> $seen{$b} } keys %seen) {
    say "$pos\t$seen{$pos}";
}

p    1
v    1
n    2
d    2
a    3