eval 'sub foo(\@) { print(@{$_[0]}, "\n"); }';
my @a = qw( foo bar );
foo(@a);  # [undef]