#!/usr/bin/env perl

use strict;
use warnings;

use Benchmark qw{cmpthese};

cmpthese -1 => {
    no_assignment => sub { my %hash },
    assignment    => sub { my %hash = () },
};