Instead of stat() and calculating the age in days yourself, that is returned by the -M operator.

my @wanted = grep -f $_ && -M _ < 1, @files;
[download]

or something close to that.