find(\&wanted, $dir);  
  sub wanted {
    if ((-f "$_") && (-M "$_" < $age )) {
	# get stats and push $_ in array
    }
  }