...
 ## end sub check_rLL
sub check_keys {
      grep { !exists $rvalid->{$_} } keys %{$rtest};
      grep { !exists $rtest->{$_} } keys %{$rvalid};
    if ($exact_match) { $error ||= @missing_keys }
    if ($error) {
        my @expected_keys = sort keys %{$rvalid};
    }
} ## end sub check_keys
sub check_token_array {
    foreach my $KK ( 0 .. @{$rLL} - 1 ) {
        my $nvars = @{ $rLL->[$KK] };
        if ( $nvars != _NVARS ) {
        }
        foreach my $var ( _TOKEN_, _TYPE_ ) {
            if ( !defined( $rLL->[$KK]->[$var] ) ) {
            }
        }
    }
} ## end sub check_token_array
{    ## begin closure check_line_hashes
    BEGIN {
        @valid_line_hash{@valid_line_keys} = (1) x scalar(@valid_line_keys);
...