my @tim_file = do {
    opendir my $dh, $dir or die "Failed opening $dir: $!";
    grep {
        my ($num) = /^tim(\d+)/;
        defined $num and $num > 14 and $num < 51;
    } readdir $dh;
};