use DBI;
use DBD::Oracle;
use Parallel::ForkManager;

my $pm = Parallel::ForkManager->new(MAX_PROCESSES);
my $pid = $pm->start and next;
my $check = &doInsert($x,$y,$z);
$pm->finish; # Terminates the child process

sub doInsert {
......
.....
INSERT INTO TABLE .........
}