Select Code to Download

my @wanted;
opendir my $dh, $dir or die "Failed opening $dir: $!";
...
    push @wanted, $_ if $num > 14 and $num < 51;
}
closedir $dh;

my @tim_file = do {
    opendir my $dh, $dir or die "Failed opening $dir: $!";
...
        defined $num and $num > 14 and $num < 51;
    } readdir $dh;
};