Help for this page

Select Code to Download

Select or download this

my %keys;
while(<>)
...
{
  print "$k: $keys{$k}\n";
}