print join(' ;; ', $hand[$i], ($hand[$i] << 1), $hand[$j], 
      ( $hand[$j] << 1 )), "\n";