use Modern::Perl;
use Time::HiRes qw/time/;

open my $LIST, '<', 'M:/YP/list.txt' or die $!;
my @stats;

my $start = time;
while (<$LIST>) {
    chomp;
    push @stats,  stat "M:/YP/$_";
}
my $end = time;

say 'stat checks took ', $end - $start, ' seconds.';
say 'That is ', 540 / ($end - $start), ' checks per second.';