Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        $x++;
    }
}

sub shuffle{
    my @cards = @_;
...
    }
    return @cards;
}