use strict;
use warnings;

shuffle_Deck(0,2,4,6,8,10,12,14);

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