Re: rand + shift || pop

[Anonymous Monk]

perldoc -f splice

$ perl -MDDS -e " @f = 1..3; Dump(\@f); warn splice @f, rand(@f),1; Du
+mp( \@f )"
$ARRAY1 = [
            1,
            2,
            3
          ];
1 at -e line 1.
$ARRAY1 = [
            2,
            3
          ];