use feature 'say';
@_ = qw/4 5 6/;
our $AUTOLOAD;
sub AUTOLOAD { say "Autoload called as $AUTOLOAD(@_)" }


BLA(1,2,3);
&BLA;
__END__
Autoload called as main::BLA(1 2 3)
Autoload called as main::BLA(4 5 6)