@report = ('last','first','phone','payment');

foreach (@report)
   {
   print qq|<tr><td width="$sample{$_}{'width'}">$sample{$_}{'name'}|;
   print $q->$sample{$_}{'method'}->(-name=>$sample{$_}{'field'},
            -size=>$sample{$_}{'size'},
            -max=>$sample{$_}{'max'});
  print qq|</td></tr>|;
   }