...
Main( @ARGV );
exit( 0 );
sub Main {
    ...
    
    my ( $allPronouns, $allMatches ) = MeaningfulMatches( \@parsed );
    my $PronounCountsHashref = CountPronouns( $allPronouns );
    my $CountsHashref        = CountMatches( $all_matches );
    SortThisMotherReference( $CountsHashref,        $allMatches );
    SortThisMotherReference( $PronounCountsHashref, $allPronouns );
    
    ...
}