For your Reference

use strict;
use warnings;


testing("ARG1");


sub AUTOLOAD
{
    my $pg = our $AUTOLOAD;
    print "Function Name ->$pg<-\n";
    print "Arguments ". join "\n", @_;
}
[download]

Output will be:
Function Name ->main::testing<-
Arguments ARG1

You can get the arguments by using the @_ similar to other user defined functions.

for eg,

sub AUTOLOAD
{
    my $Self = $_[0];
    my $CalledAs = $AUTOLOAD;
    $CalledAs =~ s/^.*:://;
    return if $CalledAs =~ /DESTROY/;
    $code = qq {
        sub $CalledAs {
            my \$Self = \$_[0];
            \@_ > 1 ? \$Self->{\$CalledAs} = \$_[1]: \$Self->{\$Called
+As} ;
        }
    };
    eval $code;
    if($@){
        die "Error defining sub routine, $CalledAs,$code, $@\n";
    }
    goto &{$AUTOLOAD};
}
[download]

$SomeObject->name("john");
# will set hash $SomeObject's hash like $SomeObject{'name'} = "john";
# later you can retrieve the value using
$SomeObject->name(); # will return "john";
easy isn't it.

but defining a sub-routine for every attribute like name, age, address, etc., is quite faster in terms of access than this way of creating subroutine in autoload. But the above method reduces lot of code.