use List::Util qw( shuffle );

my @n = shuffle 5 .. 15;
print join( q{, }, sort @n ), "\n";
print join( q{, }, sort { $a <=> $b } @n ), "\n";
__END__
10, 11, 12, 13, 14, 15, 5, 6, 7, 8, 9
5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15