Select Code to Download

while(<DATA>){
  ($key,$value)=split;
  push(@$myhash{$key}},$value);
}

if($myhash{$key)){
  do something...
}