$ 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
          ];
[download]