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