my @array;
my @Gkel=();
my @Gkel_gz=();
my @Check=();
my @files;


opendir( DIR, $dir );
my @files = grep( /$pattern/, readdir(DIR) );
closedir(DIR);
	
chdir($dir);

foreach my $file (@files) {    
if ( $file =~ m/^Gkel_/ ){
if ( substr($file, -2) eq 'gz' ) {
     
my $result = `gunzip -c $file|tail -1`;
system(`gunzip -f $file`);
      
my $count = substr($result,22,8);
$Gkel_gz[0] = $file;
$Gkel_gz[1] = $count;
} 
else {
my $result = `wc -l $file`;
my ($count, $file_name) = split(' ',$result);
my $file1 = substr($file,5);  
system(`mv $file $file1`);

$Gkel[0] = $file1;
$Gkel[1] = $count;
}
} 
  
if ( $file =~ m/^check.*Check.dat$/ ){
my $result = `wc -l $file`;
my ($count, $file_name) = split(' ',$result);
push @Check,[$file,$count];
}
}

my $Count  = $Gkel_gz[1];
my $Count1 = $Gkel[1] - $Check[1]->[1] ;

my @row = ('Jun-2013',$Gkel_gz[0],$Count,$Count,$Check[0]->[0],$Check[0]->[1],$Gkel[0],$Count1,$Count1,'TRUE',$Check[1]->[0],$Check[1]->[1]);

print join ',',@row,"\n";

print "@row\n";
}

##</code><code>##

Jun-2013,Gkel_Check.I.Jun13.dat.gz,00108418,00108418,Check.I.ABC_TT1.dat,278,,-470,-470,TRUE,Check.I.AB_TT1.dat,470,
Jun-2013 Gkel_Check.I.Jun13.dat.gz 00108418 00108418 Check.I.ABC_TT1.dat 278  -470 -470 TRUE Check.I.AB_TT1.dat 470

##</code><code>##

Jun-2013 Gkel_check.1.ABC.dat.gz 108418 108418 check.1.ABC_TT1.dat 470 Gkel_check.1.ABC.dat 107670 107670 TRUE<br>
				               Check.I.AB_TT1.dat  278