Select Code to Download

picturesque liar
fight nor fly
...
apple pie
good afternoon
seven levels

many hardships
love life
apple pie
a million dollars
this year

#!/usr/bin/perl
open(INP, '<', $ARGV[0]);
...
    (exists $query{$item}) ? ($query{$item}=$query{$item}+1) : ($query
+{$item}=1);
}
print join("\n", (sort {$query{$b}<=>$query{$a}} (keys %query))[0..4])
+."\n";