Help for this page

Select Code to Download

Select or download this

my %hash;
while (<IN>)
...
{
  print $key if ($value == 1);
}