The List::Util module provides a function to shuffle a list which seems most suitable for the task.

use strict;
use warnings;
use List::Util qw( shuffle );
my @random = shuffle 0..99999;
print join "\n", @random[0..9];
[download]