Select Code to Download

    foreach my $key (@_) {
        $hr = $hr->{$key} ||= {};
    };

#!/usr/bin/perl -w

...
    }
    $hr->{$last_key} = $val;
};

$VAR1 = {
          'foo' => {
...
while   21.3/s      --    -10%    -21%
exists  23.6/s     11%      --    -12%
foreach 27.0/s     27%     14%      --