in reply to Randomly picking numbers
What you are looking for is:
$num = $arr[rand @arr]; [download]
/J\