- or download this
keys my %cache = @in;
$cache{$_} = KEY($_) for @in;
- or download this
keys my %cache = @in;
@cache{@in} = map KEY($_) => @in;
- or download this
keys %h = @a;
@h{ @a } = ... ; # do something useful
- or download this
use strict;
use warnings;
...
},
})
}
- or download this
Rate 4 3 2 1
4 1507/s -- -3% -4% -5%
...
1 1.35 3% -- -0% -0%
2 1.35 3% 0% -- -0%
3 1.35 3% 0% 0% --