foreach $key (sort keys(%rec_counts))
{
    print "Record count of $key is $rec_counts{$key}\n";
}