One method I don't see mentioned above is to shuffle the list, then shift the values off as you need them:

use List::Util 'shuffle';
@arr = shuffle(@arr);
my $num = shift @arr;
[download]

This will move a random number from @arr into $num, which may or may not be what you want. It will also shuffle the contents of @arr, so caveat emptor.