in reply to Occurrences of line.

Why the map outside the while?

print "$hash{$_}: $_\n" for sort keys %hash;

- another intruder with the mooring in the heart of the Perl

In Section Cool Uses for Perl