#!/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;