##

#!/usr/bin/env perl

use strict;
use Data::Dumper;

my @arr;
$arr[0]{'a'}[1]{'b'} = 2;
print Dumper \@arr;

my @other;
if ($other[0]{'a'}[1]{'b'} == 2)
{
	die;
}
else
{
	# Note that autovivification has happened!
	print Dumper \@other;
}

##

##

no autovivification;