Example: (filenames)
webadmin_jul_10_2007.log
webadmin_jul_11_2007.log
webadmin_jul_12_2007.log
webadmin_jul_13_2007.log
webadmin_jul_14_2007.log
webadmin_jul_7_2007.log
webadmin_jul_8_2007.log
webadmin_jul_9_2007.log

##</code><code>##

 #### upper code ......... still present

 ##### 

 my $dir = './logs/commonlogs';
 opendir my $dh, $dir or die "Can't opendir '$dir': $!\n";
 my @files = grep { ! -d "$dir/$_" and ! /user.log/ } readdir $dh;

 foreach my $file  ( @files )
  {
    ## .....Some code written for filtering ..
            
    open(FH, $file ) or die "Error : $! \n" ;
    while($audit_data=<FH>)
    {
       @check=split(']\[|]\s+|^\[',$audit_data);
       print "   $check[2]  $check[3]  $check[1] 
         $check[4] \n";  ### 

     }
  }
      

##</code><code>##

@files_sorted = sort { $a <=> $b } @files;

##</code><code>##

Required output --> <p><p>
webadmin_jul_7_2007.log
webadmin_jul_8_2007.log
webadmin_jul_9_2007.log
webadmin_jul_10_2007.log
webadmin_jul_11_2007.log
webadmin_jul_12_2007.log
webadmin_jul_13_2007.log
webadmin_jul_14_2007.log
<p>