in reply to Randomly picking numbers

What you are looking for is:

$num = $arr[rand @arr];

/J\