test_map.pl

#!/usr/bin/env perl6
use v6;

module Foo {
    my %escape;
    for 0 .. 255 -> $c {
        %escape{ chr($c) } = sprintf "%%%02X", $c;
    }

    sub bar (Int $value) {
        return %escape{ chr($value) };
    }
}

say Foo.bar(150);