@a = ('textfield','lastname','Bob',20,15);
$q->$a[0[(-name=>$a[1],-default=>$a[2],-size=>$a[3],-max=>$a[4]);
[download]

@a = ('textfield',qq|-name=>'lastname'|, qq|-default=>'Bob'|, etc.);
$q->$a[0]($a[1],$a[2],$a[3], etc...)
[download]