#!/usr/bin/perl
 
# Dichiara l'array assegnandogli sia stringhe che numeri
@elenco = ("primo", "secondo", 3, 4, "quinto");
 
# Attraverso l'assegnamento seguente, $elementi riceve il
# numero di elementi contenuti nell'array.
$elementi = @elenco;
 
# Emette tutte le informazioni legate all'array.
print "L'array contiene $elementi elementi.\n";
print "L'indice iniziale è $[.\n";
print "L'ultimo elemento si raggiunge con l'indice ";
print "$#elenco.\n";
 
# Emette in ordine tutti gli elementi dell'array.
print "L'array contiene: $elenco[0] $elenco[1] $elenco[2] ";
print "$elenco[3] $elenco[4].\n";
 
# Idem
print "Anche in questo modo si legge il contenuto ";
print "dell'array: @elenco.\n";
 

IyEvdXNyL2Jpbi9wZXJsCgojIERpY2hpYXJhIGwnYXJyYXkgYXNzZWduYW5kb2dsaSBzaWEgc3RyaW5naGUgY2hlIG51bWVyaQpAZWxlbmNvID0gKCJwcmltbyIsICJzZWNvbmRvIiwgMywgNCwgInF1aW50byIpOwoKIyBBdHRyYXZlcnNvIGwnYXNzZWduYW1lbnRvIHNlZ3VlbnRlLCAkZWxlbWVudGkgcmljZXZlIGlsCiMgbnVtZXJvIGRpIGVsZW1lbnRpIGNvbnRlbnV0aSBuZWxsJ2FycmF5LgokZWxlbWVudGkgPSBAZWxlbmNvOwoKIyBFbWV0dGUgdHV0dGUgbGUgaW5mb3JtYXppb25pIGxlZ2F0ZSBhbGwnYXJyYXkuCnByaW50ICJMJ2FycmF5IGNvbnRpZW5lICRlbGVtZW50aSBlbGVtZW50aS5cbiI7CnByaW50ICJMJ2luZGljZSBpbml6aWFsZSDDqCAkWy5cbiI7CnByaW50ICJMJ3VsdGltbyBlbGVtZW50byBzaSByYWdnaXVuZ2UgY29uIGwnaW5kaWNlICI7CnByaW50ICIkI2VsZW5jby5cbiI7CgojIEVtZXR0ZSBpbiBvcmRpbmUgdHV0dGkgZ2xpIGVsZW1lbnRpIGRlbGwnYXJyYXkuCnByaW50ICJMJ2FycmF5IGNvbnRpZW5lOiAkZWxlbmNvWzBdICRlbGVuY29bMV0gJGVsZW5jb1syXSAiOwpwcmludCAiJGVsZW5jb1szXSAkZWxlbmNvWzRdLlxuIjsKCiMgSWRlbQpwcmludCAiQW5jaGUgaW4gcXVlc3RvIG1vZG8gc2kgbGVnZ2UgaWwgY29udGVudXRvICI7CnByaW50ICJkZWxsJ2FycmF5OiBAZWxlbmNvLlxuIjsK