#!c:\perl\bin\perl
use strict;
use CGI qw(:standard);
my $okflag="y";
my @chk;
my @InvalidFields =  grep {not defined CGI::param($_) or CGI::param($_) eq ''} CGI::param();
...
...
...
my @ppl=param('coord');
my $reldate=param('date');
my $apps=param('application');
..
open FH, ">>report_sum.txt" or die "Cant open report_sum.txt Reason: $!"; 
print header;
print start_html('Thank you');
print <<EOF;

my $writestr=<a single string concatenated based on all the values>
print FH $writestr."\n";	

close FH;
print end_html;