Help for this page
push @num, splice(@array, int rand @array, 1);
... print "\n\$randstring: $randstring\n\n";