You're asking for objects

{
    sub SomeUser::new       { shift; return bless [ @_ ], 'SomeUser' }
    sub SomeUser::State     { $_[0]->[0] }
    sub SomeUser::Age       { $_[0]->[1] }
    sub SomeUser::Name      { $_[0]->[2] }
    sub SomeUser::Address   { $_[0]->[3] }
    
    my $foo = bless ['US', 23, 'Andy', 'adress....' ], 'SomeUser';
    print "Hello ", $foo->Name, "\n";
    $foo = SomeUser->new('US', 23, 'Andy', 'adress....' );
    print "Hello ", $foo->[2], "\n";
}
__END__
Hello Andy
Hello Andy
[download]

chromatics free book Modern Perl discusses both this, and the modern way (Any::Moose)