#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw/cmpthese/;

my %hash;
my &#36key="foo";

cmpthese (-10, {
    ohne  => sub { &#36hash{&#36key}=0; &#36hash{&#36key}++ for 0 .. 1_000_000; },
    mit   => sub { &#36hash{"&#36key"}=0; &#36hash{"&#36key"}++ for 0 .. 1_000_000; },
});