#!/usr/bin/perl
use strict;
use warnings;
use Devel::Size 'total_size';

my $s = 'AAAAAAAAAAAAAAA';

my %hash = map {$s++ => 1} 1 .. 1000;

print total_size(\%hash). ' ' . keys(%hash) . "\n";

open my $fh, '>', 'j1.txt' or die $!;

for my $key (keys %hash) {
	print $fh "$key $hash{$key}\n";
}

print total_size(\%hash). ' ' . keys(%hash) . "\n";

##</code><code>##

105248 1000
145288 1000