Select Code to Download

while (<MYFILE>)
{
...
    $mylist{$1} = {value => $2, linenum => $. };
  }
}

for my $key ( keys %mylist )
{
...

  print "$key has value $value, found on line $linenum\n";
}