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