#!/usr/bin/perl

@deck = (card1,card2,card3,card4);


@shuffle1 = shuffle(@deck);
@shuffle2 = shuffle(@shuffle1);

print "@shuffle1\n";
print "@shuffle2\n";

sub shuffle () {

$e = 0;
$b = $#array;

while ($e < $b) {
	push(@newdeck, "$array[$e]","$array[$b]");
	$e++;
	$b--;
}

return @newdeck;
}