use strict;
use warnings;
no autovivification;  # default options

use Data::Dumper;

my $ref = undef;
$ref->{foo}[0]{bar}[0] = 42;  # store
print Dumper $ref;