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";
}