#!/usr/bin/perl
# Dichiarazione dell'array: attenzione a non fare confusione!
# ------------- ---------------- ---------
%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";
IyEvdXNyL2Jpbi9wZXJsCgojIERpY2hpYXJhemlvbmUgZGVsbCdhcnJheTogYXR0ZW56aW9uZSBhIG5vbiBmYXJlIGNvbmZ1c2lvbmUhCiMgICAgICAgICAgICAgLS0tLS0tLS0tLS0tLSAgICAtLS0tLS0tLS0tLS0tLS0tICAgIC0tLS0tLS0tLQolZGVwb3NpdG8gPSAoInByaW1vIiwgImFsZmEiLCAic2Vjb25kbyIsICJicmF2byIsICJ0ZXJ6byIsIDMpOwoKCiMgRW1ldHRlIGlsIGNvbnRlbnV0byBkZWkgdmFyaSBlbGVtZW50aS4KcHJpbnQgIiRkZXBvc2l0b3twcmltb31cbiI7CnByaW50ICIkZGVwb3NpdG97c2Vjb25kb31cbiI7CnByaW50ICIkZGVwb3NpdG97dGVyem99XG4iOw==