use File::Find;

my @found;    # gefundene Dateinamen

find (\&found, $dir);

sub found {
   my $fn = $File::Find::name;
   if (-f $fn 
       && $fn !~ /\.gz$/                       # kein .gz
       && (stat($fn))[10] == +time-86400) {    # ctime == Jetztzeit - 1 day
        push @found,$fn;                  # gefunden, dann ins Array
     }
}