$ /usr/local/bin/perl -e '@ARGV = qw(foo);
foo(@ARGV);
sub foo {
    my $x = shift(@ARGV);
    my $y = shift;
}'
panic: attempt to copy freed scalar 13280e0 to 133a630 at -e line 5.