Select Code to Download

@nums = '0' .. '30'; # change to '000000' .. '999999';
srand;
while(@nums){
    push(@randnums, splice @nums,int(rand @nums),1);
}

# Test print:
print join(' ',@randnums);
print "\n";
print join(' ',sort {$a <=> $b} @randnums);