Select Code to Download

$ ./frequency testfile1 testfile2
5 3
2 2
3 2
1 0

#!/usr/bin/perl -w
#use strict;
...
#Ideally here would like to print the array followed by the hash 
#elements
print (@array, %hash2);

foreach $person (sort keys %book) {
if ($books{person}) {
print $person has $books{$person} items\n";
}
}