\\ n " ; minun % ha = ( Apple = > " violetti " , Banana = > " keltainen " , Päärynä = > " vihreä " , Lemon = > " vihreä " ) ; minun $ href = \\ % ha ; Tulosta $$ href { Apple- } . " minun $ haref = { Apple = > " violetti " , Banana = > " keltainen " , Päärynä = > " vihreä " , Lemon = > " vihreä " } ; print $ haref - > { " Banana " } ; painaa "
