Perl Parallel::ForkManager

parallel_forkmanager.pl

#!/usr/bin/env perl

use strict;
use warnings;
use IPC::Shareable;
use Parallel::ForkManager;

my $process_num = 4;

my $handle = tie( my %result, 'IPC::Shareable', undef, { destroy => 1 } );

my $pm = Parallel::ForkManager->new( $process_num );

my @all_data = qw( one two three );

for my $i ( @all_data ) {

    $pm->start and next;
    
    $handle->shlock;
    $result{ $i } = calc( $i );
    $handle->shunlock;
    
    $pm->finish;
}

$pm->wait_all_children;

sub calc {}

nice ..

but
will i have to share key as a $j .....like $result{$j}
?