our ($starttime, $endtime) = init();
# . . .
my @selected = grep {
    my $time = (split /[_.]/)[2];
    $time > $starttime and $time <= $endtime;;
} </path/to/*>;