gistfile1.txt

sub foo {say 'outer foo'}
sub infix:<bar>($a,$b) {say "outer bar {$a + $b}" }
sub infix:<baz>($a,$b) {say "outer baz {$a * $b}" }

foo();
2 bar 3;
2 baz 3;
say;

{
    sub foo { say 'inner foo' }
    sub infix:<bar>($a,$b) {say "inner bar {$a + $b}" }
    sub infix:<baz>($a,$b) is tighter(&infix:<*>) {say "inner baz {$a * $b}" }

    foo();
    2 bar 3;
    2 baz 3;
    say;
}

foo();
2 bar 3;
2 baz 3;