@FieldNames = sort (keys %FORM);

##</code><code>##

        @FieldNames = qw/Fieldname1 Fieldname2 Fieldname3 .../;

##</code><code>##

        foreach $key (@FieldNames) {
                my $val = ( defined( $FORM{$key} ) and $FORM{$key} =~ /\S/ ) ?
                                    $FORM{$key} : "BLANK";
                print LOGFILE "\t$val";
        }

##</code><code>##

        my $line = '';
        foreach $key (@FieldNames) {
                $line .= "\t" . ( defined( $FORM{$key} ) and $FORM{$key} =~ /\S/ ) ?
                              $FORM{$key} : "BLANK":
        }
        print LOGFILE "$line\n";