Select Code to Download

sub fisher_yates_shuffle {
  my $deck = shift;    # $deck is a reference to an array
...

my @aa = qw/a b c d e f/;
fisher_yates_shuffle( \@aa );