Select Code to Download

foreach (my $input) @data {
   my ($key, $value)= parseline ($input);
   $results{$key}=$value;
   }