for ( 1..10_000 ) {
    open(F,">dir/$_.txt");
    close(F);
}