Select Code to Download

use strict;
use warnings;
...
}

print map { "$count{$_}: $_\n" } @lines;

3: alpha comes before beta and gamma, but not alphabet
4: beta comes after alpha; beta comes before gamma
1: gamma is the last word