#!/usr/bin/perl

use warnings;
use strict;

use Devel::Size qw(size);

my %hash = ();

for my $key (1..27000) {
    $hash{"blahblahblahblah$key"} = 1;
}

print size(\%hash);