Try changing: $num = rand(@choices);

to: $num = $choices[ rand(@choices) ];

rand(@choices) will give you a random index (from 0 to 48).

Update: Changed @choices[ rand(@choices) ]; to $choices[ rand(@choices) ];