sub foo { return @foo }

$object->bar($wibble, foo());

##</code><code>##

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