$num=int(rand $#arr);

##</code><code>##

    $num=int(rand @arr);