my @sorted =
    sort { $a->[0] cmp $b->[0]  # sort first by alpha ascending
                   or
           $a->[1] <=> $b->[1]  # then by frequency ascending
         }
    map  [ $_, $word_count{$_} ],
    keys %word_count
    ;