#!/usr/bin/perl

no autovivification;

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

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