my $mid = int( (@array+1)/2 );
for my $i (0 .. $mid-1) {
   if ($mid+$i < @array) {
      print($array[$i], "\t", $array[$mid+$i], "\n");
   } else {
      print($array[$i], "\n");
   }
}