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