Splicing...

>perl -wE "@a=qw/a b c/; say splice @a, 0, 1"
a

>perl -wE "@a=qw/a b c/; say splice @a, 0, 1e18"
abc

>perl -wE "@a=qw/a b c/; say splice @a, 0, 1e19"


>perl -wE "@a=qw/a b c/; say splice @a, 0, 1e20"
ab



>perl -wE "@a=qw/a b c/; say splice @a, 0, 1"
a

>perl -wE "@a=qw/a b c/; say splice @a, 1e18, 1"
splice() offset past end of array at -e line 1.


>perl -wE "@a=qw/a b c/; say splice @a, 1e19, 1"
Modification of non-creatable array value attempted, subscript -198128
+4352 at -e line 1.

>perl -wE "@a=qw/a b c/; say splice @a, 1e20, 1"
c
[download]