#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my %a; 

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

print Dumper \%a;
__END__
Prints:
$VAR1 = {};