多重hash与exists函数

猜猜下面程序的输出结果是什么？

use strict;
use warnings;

my %testHash=();
$testHash{"a"}{"a1"}="a1";
$testHash{"a"}{"a2"}="a2";
if(exists $testHash{"d"}{"d1"}){
    print "haha/n";
}elsif (exists $testHash{"d"}){
    print "xixi/n"
}else{
    print "yangyang/n"
}