my %fldname = ( company_name => 'Company',
                street       => 'Street Address',
                       . . .
               );
 . . .
    my %fldval;
    @fldval{@fields} = @vals;
    my $htmltxt =
      join '<br> <b>', map "$fldname{$_}:</b> $fldval{$_}", @fields;
 . . .