I understand now why you had 2 loops.
Try this, as before replace #test lines with your lines marked ##

#!perl
use strict;
use warnings;
my @test = (470,278); #test

my @Gkel=();
my @Gkel_gz=();
my @TT1=();
my @files = qw(
  Gkel_check.1.ABC.dat.gz
  check.1.ABC_TT1.dat
  check.1.AB_TT1.dat
); #test

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

# sort so that AB_ comes after ABC
foreach my $file (sort @files) {    
  # check gz file
  if ( ($file =~ m/^Gkel_/) && ($file =~ m/gz$/) ){   
    ## my $result = `gunzip -c $file|tail -1`;
    ## my $count = substr($result,22,8);
    my $count = 108418; #test  
    $Gkel_gz[0] = $file;
    $Gkel_gz[1] = $count; 
    # extract .dat file
    ## system(`gunzip -f $file`);
   } 
  
  # check TT1 files
  if ( $file =~ m/^check.*TT1.dat$/ ){
    ## my $result = `wc -l $file`;
    ## my ($count, $file_name) = split(' ',$result);
    my $count = shift @test; #test
    push @TT1,[$file,$count];
  }   
}

# process extracted file
##opendir( DIR, $dir );
##my @files = grep( /$pattern/, readdir(DIR) );
##closedir(DIR); 
##chdir($dir);
push @files,'Gkel_check.1.ABC.dat'; #test
foreach my $file (@files) { 
  # extracted file
  if ( ($file =~ m/^Gkel_/) && ($file !~ m/gz$/) ){   
    #my $result = `wc -l $file`;
    #my ($count, $file_name) = split(' ',$result);
    my $count = 107948;
    # remove Gkel from filename
    my $file1 = substr($file,5,50);
    $Gkel[0] = $file;
    $Gkel[1] = $count;
    #system(`mv $file $file1`);
  }
}

# Ouput
my @row1 = ('Jun-2013',    # 
$Gkel_gz[0],$Gkel_gz[1],   # zip filename and count
$TT1[0]->[0],$TT1[0]->[1], # ABC_TT filename and count
$Gkel[0],$Gkel[1]          # unzipped filename and count
);

my @row2 = (
$TT1[1]->[0],$TT1[1]->[1]  # AB_TT filename and count
);

print join ',',@row1,"\n";
print join ',',@row2,"\n";
[download]

poj

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.