Select Code to Download

while (@thisfile) {

for (@thisfile) {

$seen{b} <=> $seen{a}

use strict;
use warnings;
...
close ($inFile);

printf "%5d %s\n", $seen{$_}, $_ for sort { $seen{$b} <=> $seen{$a} } 
+keys %seen;

    2 a
    2 to
...
    1 pattern
    1 counter
    1 an