use strict;
use threads;

my @drive_dir = (
    'perl /a/dir_file_create.txt' , 
    'perl /b/dir_file_create.txt', 
    'perl /c/dir_file_create.txt'
);

my @kids = map async{ system $_; }, @drive_dir;
$_->join for @kids;