#!/usr/bin/env perl

use strict;
use warnings;

use Devel::Size qw(size total_size);

my $num = 0;
my %hashed_keys;
my @values = ();

for my $word ('aaaa'..'zzzz') {
    # Store $word -> $num
    my $hash_word = some_hash($word);
    my $hash_word_index = scalar @values;
    $hashed_keys{$hash_word} = $hash_word_index;
    push @values, $num;

    # Store $num -> $word
    my $hash_num = some_hash($num);
    my $hash_num_index = scalar @values;
    $hashed_keys{$hash_num} = $hash_num_index;
    push @values, $word;

    ++$num;
}

sub some_hash {
    return shift;
}

my $total_size;
for my $var (\%hashed_keys, \@values) {
    my $tsize = total_size($var);
    printf "%s\n", total_size($var);
    $total_size += $tsize;
}

print "total: $total_size\n";

exit;