Select Code to Download

sub get_fuzzy {
    my ($k, $h) = @_;
...

my %hash = (a=>1, c=>3, e=>5, g=>7, i=>9);
print "|", join('|', map { get_fuzzy($_, \%h) } a..j), "|\n";