Select Code to Download

#!c:/perl/bin/perl -w
use strict;
...
    print "\t$key accessed $value times.\n" while (($key,$value) =  ea
+ch %{$hash{$company}});
    print "\n";
}

while (<FILE>) {
my @a = split /,/;
$hash{$a[3]}{$a[4]}++;
}