Select Code to Download

push @results, $element.'-'.$pair;
foreach (@results)
  {
...
     $element{$_} = $element;
  }
}