Code:
$
$ cat shuffle.pl
#!/usr/bin/perl
$n = defined $ARGV[0] ? $ARGV[0] : 1;
@startingdeck = ("A H","2 H","3 H","4 H","5 H","6 H","7 H","8 H",
"9 H","10 H","J H","Q H","K H",
"A D","2 D","3 D","4 D","5 D","6 D","7 D","8 D",
"9 D","10 D","J D","Q D","K D",
"A C","2 C","3 C","4 C","5 C","6 C","7 C","8 C",
"9 C","10 C","J C","Q C","K C",
"A S","2 S","3 S","4 S","5 S","6 S","7 S","8 S",
"9 S","10 S","J S","Q S","K S");
foreach $j (1..$n) {
print "Top 5 cards for shuffle # $j\n";
shuffle();
}
sub shuffle {
foreach $i (1..5){
printf("%d => %s\n",$i,$startingdeck[sprintf("%d",rand(51))]);
}
}
$
$ perl shuffle.pl
Top 5 cards for shuffle # 1
1 => 8 C
2 => 8 D
3 => 9 D
4 => 4 S
5 => 7 D
$
$ perl shuffle.pl 3
Top 5 cards for shuffle # 1
1 => K H
2 => 2 H
3 => A H
4 => A S
5 => A D
Top 5 cards for shuffle # 2
1 => 3 C
2 => 7 D
3 => J D
4 => J H
5 => 7 S
Top 5 cards for shuffle # 3
1 => 7 S
2 => K H
3 => 3 S
4 => 10 H
5 => J H
$
$