$ perl -wMstrict -le 'sub foo { return @_; }
 ;;
 my $ar;
 print foo(@$ar);
 print $ar;'

ARRAY(0xada8b410)
$