#!/usr/bin/perl

my %a;
if (exists $a{'abd'}
	and exists $a{'abd'}->[0]
	and defined $a{'abd'}->[0])
{
	print "yes \n";
}

use Data::Dumper;
print Dumper \%a;

##</code><code>##

#!/usr/bin/perl

no autovivification;

my %a;
if (defined $a{'abd'}->[0])
{
	print "yes \n";
}

use Data::Dumper;
print Dumper \%a;