Help for this page

Select Code to Download

Select or download this

$ uname -srpio
Linux 2.6.9-55.0.12.EL i686 i386 GNU/Linux
...
my @train = (1, 2, 3, 4, 1, 2, 4, 4, 1, 2, 3, 4, 1);
my @test = shuffle @train;
__END__