#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Benchmark qw{ cmpthese };

my %hl;
@hl{1001 .. 2000} = (1) x 1000;
our %hg = %hl;
our ($el, $vl, $eg, $vg) = (0) x 4;

die unless $hl{1001};
die unless $hg{1001};

cmpthese(-1, {
    exist_l => q{ ++$el if exists $hl{1001} },
    value_l => q{ ++$vl if $hl{1001} },
    exist_g => q{ ++$eg if exists $hg{1001} },
    value_g => q{ ++$vg if $hg{1001} },
});

say join "\n", "el: $el", "vl: $vl", "eg: $eg", "vg: $vg";