Your phrase files created by today only and upto now is poorly defined and as such, you didn't translate it well into code.

First, calculate the epoch time for today's date, with hour, minute, second set to zero with Time::Local. This gives you the timestamp for today midnight.

Then, simply numerically compare each file's timestamp with the midnight timestamp.