foreach my $key1 (keys %count){ print "$key1 appears $count{$key1} times\n"; } #close foreach