print map "$_ appears $count{$_} times\n", keys %count;