or you could just pull numbers out at random then throw them away:

use strict;
use warnings;

my @numbers = 1..10;
print splice (@numbers, rand (@numbers), 1), "\n" while @numbers;
[download]