sub shuffle_Deck {
    my @deck;
    for (0 .. $#_) {
        my $rand = int(rand(@_));
        push(@deck, splice(@_,$rand,1));
    }
    return @deck;
}