Select Code to Download

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