use strict;
use warnings;
use feature 'say';


our $AUTOLOAD;
sub AUTOLOAD { say "Autoload called as $AUTOLOAD(@_)" }

sub BLUBB {
    say "BLUBB called with @_";
    &BLA;
};

BLUBB( 1,2,3 );