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