randomly extract from an array until all are gone

for  (0 .. $ #myarray) {   #
    $index = int ( rand $ #myarray);
    print “ $myarray [ $index ] ;
    splice @myarray , $index , 1
}