my $name= $obj->('name');

##</code><code>##

my @list= $obj->(qw/name address serial zip/);