$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'} );
        }
    }
);