Perl referencia a un Hash

\\ n "; mi % ha = (Apple = > " púrpura " , Plátano = > " amarillo " , Pera = > " verde " , Limón = > " verde ") , mi $ href = \\% ja ; . de impresión $$ href { "Apple" } " mi $ haref = { Manzana = > " púrpura " , Plátano = > " amarillo " , Pera = > " verde " , Limón = > " verde " } ; print $ haref -> {' plátano ' } ; impresión "