use strict;
use warnings;

use Benchmark qw( cmpthese );

sub test1 { my %h = 'a'..'z'; %h = (); }
sub test2 { my %h = 'a'..'z'; undef %h; }

cmpthese(-3, {
   test1 => \&test1,
   test2 => \&test2,
});