Select Code to Download

while (<DATA>) { 
        my ($one, $two) = split; 
        $seen{$one} = [$two, exists $seen{$one} ? @{$seen{$one}} : () 
+]; 
}

while (<DATA>) {
  my ($one, $two) = split;
  push @{$seen{$one}}, $two;
}