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