Select Code to Download

push @num, splice(@array, int rand @array, 1);

...
print "\n\$randstring:  $randstring\n\n";