#DECK MAKER
sub deck_maker {
    my @deck = (); #the deck for returning
    my @types = ('spades', 'hearts', 'diamonds', 'clubs');
    my @cards = ( 2,3,4,5,6,7,8,9,10,'J','Q','K','A');
    for ( my $i=0; $i < 4; $i++) {
        for ( my $j=0; $j < 13; $j++) {
            my $newcard = $cards[$j] . " of " . $types[$i];
            push(@deck, $newcard);
        }
    }
    return @deck; #return the new deck
}