foreach my $key ( keys %seen ) { print "$key was seen $seen{$key} times\n"; }