#!/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";
IyEvdXNyL2Jpbi9wZXJsCgojIERpY2hpYXJhemlvbmUgZGVsbCdhcnJheS4KJWRlcG9zaXRvID0gKAogICAgICAgIHByaW1vICAgPT4gImFsZmEiLAogICAgICAgIHNlY29uZG8gPT4gImJyYXZvIiwKICAgICAgICB0ZXJ6byAgID0+IDMsCik7CgojIEVtZXR0ZSBpbCBjb250ZW51dG8gZGVpIHZhcmkgZWxlbWVudGkuCnByaW50ICIkZGVwb3NpdG97cHJpbW99XG4iOwpwcmludCAiJGRlcG9zaXRve3NlY29uZG99XG4iOwpwcmludCAiJGRlcG9zaXRve3RlcnpvfVxuIjs=