Select Code to Download

my $limit = 0;
for $selection ( sort { rand() <=> 0.5 } @array ) {
    print "$selection\n";
    ( ++$limit < 10 ) or last;
}

@output = sort { rand() <=> 0.5 } @input;
$#output = 9; #truncate the randomly sorted copy