Select Code to Download

        @FieldNames = sort (keys %FORM);

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

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

        my $line = '';
        foreach $key (@FieldNames) {
...
                              $FORM{$key} : "BLANK":
        }
        print LOGFILE "$line\n";