Hi

Code should be runnable :) Incomplete code is incomplete ;) Intent/goal must be stated not implied

Have you read ?? Re: Please Explain the Parallel::ForkManager Idiom my $pid = $pm->start and next;, Mr. Peabody Explains fork() ?? Kids don't talk to parents

Regarding javascriptism, perl has arrows and perltidy

No

# $$data_ref{'fork_s'} = &$sixes( $#{$$array_ref} );
# 
# &{ $$data_ref{'fork_s'} }(
#     sub {
#         my $sn = "$_";    ## = number of sentence
#         $results{'SxW'}{"$sn"}++;
#         say "Results: " . pp( %results );
#     },
#     sub {
#         my $refe = $_[5];
#         say "Refe2 empty" if !defined $refe;
#         if( defined( $refe ) ) {
#             say "Refe2 " . pp( $$refe{'SxW'} );
#         }
#     }
# );
[download]

Yes

$data_ref{'fork_s'} = $sixes->( $#$array_ref  );


$data_ref{'fork_s'}->(
    sub {
        my $sn = "$_";    ## = number of sentence
        $results{'SxW'}{"$sn"}++;
        say "Results: " . pp( %results );
    },
    sub {
        my $refe = $_[5];
        say "Refe2 empty" if !defined $refe;
        if( defined( $refe ) ) {
            say "Refe2 " . pp( $$refe{'SxW'} );
        }
    }
);
[download]

See also references quick reference