Select Code to Download

#!/usr/bin/perl
use strict;
...
my @numbers = (1 .. 50);

print shuffle(@numbers);

for ($i = 0; $i < @numbers; ++$i) { ... }