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

##</code><code>##

Values: 10 of spades ;; 20 ;; 3 of hearts ;; 6
Values: Q of clubs ;; 0 ;; j of clubs ;; 0
Q of clubsj of clubs