. . .
close (ORGDB);

my @fields = split/\|/, shift @ODB;
 . . .
    @vals = split(/\|/,$rec);
    my $outflds =
      join "&", map "$fields[$_]=$vals[$_]", 0..$#fields;

##</code><code>##

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