return @$arr[ @pick = ( 0 .. $num - 1 ) ] unless @pick;