Ichki xeshlardagi qadriyatlarga kirish muammosi

Men ikkita chuqurlikdagi xashlar ro'yxatiga kirishga harakat qilyapman. Mana mening kodim:

my %english = (
    greetings => [("Hello", "What's up?")],
);

my %spanish = (
    greetings => [("Hola", "Que pasa?")],
);

my %bighash = (
    english => %english,
    spanish => %spanish,
);

print 'English greetings: ';
if (my $array = $bighash{'english'}{'greetings'}) {
    print "\n$_" for @$array
}
else {
    print 'Fail.';
}

Biroq, if sharti har doim "noto'g'ri" deb baholanadi. Nima uchun bu?