#!/usr/bin/perl
# Dichiarazione dell'array.
%deposito = (
"primo", "alfa",
"secondo", "bravo",
"terzo", 3,
);
# Emette il contenuto dei vari elementi.
print "$deposito{primo}\n"; print "$deposito{secondo}\n"; print "$deposito{terzo}\n";
IyEvdXNyL2Jpbi9wZXJsCgojIERpY2hpYXJhemlvbmUgZGVsbCdhcnJheS4KJWRlcG9zaXRvID0gKAogICAgICAgICJwcmltbyIsICJhbGZhIiwKICAgICAgICAic2Vjb25kbyIsICJicmF2byIsCiAgICAgICAgInRlcnpvIiwgMywKKTsKCiMgRW1ldHRlIGlsIGNvbnRlbnV0byBkZWkgdmFyaSBlbGVtZW50aS4KcHJpbnQgIiRkZXBvc2l0b3twcmltb31cbiI7CnByaW50ICIkZGVwb3NpdG97c2Vjb25kb31cbiI7CnByaW50ICIkZGVwb3NpdG97dGVyem99XG4iOw==