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