#!/usr/bin/env perl

use Benchmark 'cmpthese';
@k = 1..1000;
@v = 1..1000;

cmpthese(0, {
    map => 'my %h1 = map { $k[$_], $v[$_] } 0..$#k',
    for => 'my %h2; $h2{$k[$_]} = $v[$_] for 0..$#k',
    slice => 'my %h3; @h3{@k} = @v',
});
__END__

        Rate   map   for slice
map    657/s    --  -44%  -65%
for   1174/s   79%    --  -38%
slice 1884/s  187%   60%    --