perl -wle'
@a = qw(a b c);
print \$a[0];
sub test { print \$_[0]; }
test(@a)'
SCALAR(0x8151c20)
SCALAR(0x8151c20)