#!/usr/bin/env perl    

use strict;
use warnings;
use 5.010;

use Memory::Usage;

my @array1;
my @array2;

my $mu = Memory::Usage->new();
$mu->record('ready to go');

$array1[5268] = 1;
$mu->record('array1 has an element');

$array2[8675309] = 1;
$mu->record('array2 has an element');

$mu->dump();