$ perl -MData::Dumper -e 'sub foo {@a}; bar(1,foo()); sub bar {print Dumper \@_}'
$VAR1 = [
          1
        ];