#!/usr/bin/perl -wT
use strict;
use utf8;

my @hand = ('k of hearts', '2 of hearts', '2 of diamonds',  '10 of spades', 'Q of clubs',
			'j of clubs', '10 of diamonds', '3 of hearts');

for ( my $i=0; $i<$#hand+1; $i++) {
	for ( my $j=$i+1; $j<$#hand+1; $j++) {
		if ( ($hand[$i] << 1) == ($hand[$j] <<1 ) ) {
			print $hand[$i], $hand[$j], "\n";
		}
	}
}