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