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

##</code><code>##

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