#Start new thread 
       
   my $t1 = threads->new (\&$functions_name1,@parameters1); 
   push(@threads,$t1); 
 
   my $t2 = threads->new (\&$functions_name2,@parameters2); 
   push(@threads,$t2); 
    
   my $index=0; 
   my %hash_results = (); 
   foreach my $thread (@threads) #wait for all threads untill the end and insert results to hash 
   { 
      $hash_results{$index}=$thread->join; 
   }

use 5.010; 
use strict; 
use warnings; 
 
use Parallel::ForkManager; 
use Data::Printer; 
 
my $pm = Parallel::ForkManager->new(2); 
 
$pm->run_on_finish( 
    sub { 
        # result from the child will be passed as 6th arg to callback 
        my $res = $_[5]; 
        p $res; 
    } 
); 
 
for (1..3) { 
    $pm->start and next; 
    # from here and till $pm->finish child process running 
    # do something useful and store result in $res 
    my $res = { aaa => $_ }; 
    # this will terminate child and pass $res to parent process 
    $pm->finish(0, $res); 
} 
 
$pm->wait_all_children;