#!/usr/bin/perl
# vim: set ts=4 sw=4 et sta:
use strict;
use warnings;
use Benchmark qw( cmpthese );

my %target;
my %source;

## prefill
@target{'aa'..'zz' } = 'aa' .. 'zz';
@source{'ww'..'yy', 1..100}     = ( 'ww'..'yy', 1..100 );

cmpthese( -1, {
   grandfather => sub {
        my %t = %target;
        @t{keys %source} = values %source;
    },
   sleepyjay   => sub {
       my %t = %target;
       %t = ( %t, %source );
    },
});

__END__
              Rate   sleepyjay grandfather
sleepyjay    598/s          --        -62%
grandfather 1585/s        165%          --

              Rate   sleepyjay grandfather
sleepyjay    649/s          --        -62%
grandfather 1706/s        163%          --