foreach $year (@years)
{
  foreach $month (@months)
  {
    foreach $day (@days)
    {
        @filelist = glob("/home/reports/ftp/WSB/*$year$month$day*");
        $filecount = @filelist;
        print "$month-$day $hour:$filecount\n";
        $gzname = $month.$day.".gz";
        foreach $filename (@filelist)
        {
          `cat $filename|gzip -9 >>$gzname`;
          `rm $filename`;
        }
    }
    @days = @alldays;
  }
}