Select Code to Download

%sample    = 
...
'last' =>["Last Name", 75, 'textfield', 'last'],
'first' =>["First Name", 70, 'textfield', 'first']
);

%sample=
(
...
'last' =>{name=>"Last Name", width=> 75, method=>'textfield', field=>'
+last'],
'first' =>{name=>"First Name", width=>70, method=>'textfield', field=>
+'first'}
);

print $q->$sample{'last'}{'method'} ($sample{'last'}{'field'});