# definiamo un array associativo:
#ricordiamo che e' una lista di coppie chiave-valore

%verso=(
        cane  => baubau,
        gatto => miao,
        bue   => muu,
        pesce => blob
        );

#estraiamo le coppie di dati servendoci delle chiavi 
#notare l'uso delle parentesi graffe in particolare
#nella struttura sintattica $verso{$chiave}
foreach $chiave(keys(%verso)){
print "Il $chiave fa $verso{$chiave}\n";
}

#estraiamo il valore corrispondente a una chiave
print"\n";
print "Il pesce non fa $verso{'cane'}\n";
print "e' il cane che fa $verso{'cane'}\n";

Il pesce fa blob
Il bue fa muu
Il gatto fa miao
Il cane fa baubau

Il pesce non fa baubau
e' il cane che fa baubau

--------------------------------------------
$nome = "pippo";
$attributo = "cunnutu";
$numero = 3;

print "$nome e' $numero volte $attributo\n";
--------------------------------------------

-------------------------------------------
@colori = (rosso, verde, blu);
foreach $colore(colori){
   print "$colore\n";
   }
print $colori[2]," e ";
print $colori[1]," costituiscono il magenta\n";
--------------------------------------------