Another solution

gistfile1.txt

my %b is Bag = "aa.txt".IO.lines.map: -> $line {
    my int @evenodd = 0,0;
    ++@evenodd[$_ % 2] for $line.words.skip(2).head(5);
    @evenodd.join(" ");
}

for %b.sort -> (:$key, :$value) {
    say "$key --> $value"
}