gistfile1.txt

grammar WordPairs {
    rule word-pair { <key=word> <value=word> }
    token word { \S+ }
    rule TOP { <word-pair>* }
}

my %dict;

class WordPairsActions {
    method word-pair($/) { %dict{~$<key>}.push(~$<value>) }
}

my $match = WordPairs.parse(slurp, :actions(WordPairsActions));
say ?$match;

say "The pairs count of the key word \"her\" in wordpairs.txt is {%dict{"her"}.elems}";