while(<$dir/*>){push @old, $_ if (time-(stat $_)[9]) >= ($day * 86400) && $_ ne "lost+found"}