#!/usr/bin/perl -w

# Dato un array di interi creare un nuovo array 
# contenente i valori in posizione invertita

use strict;
my(@arrayInt, @arrayIntInv, $x);

@arrayInt = (2, 4, 5, 1, 5, 6);
print "Elementi dell'array: @arrayInt\n";
print "Lunghezza dell'array: ".@arrayInt."\n";

foreach $x (@arrayInt) {
    @arrayIntInv = ($x, @arrayIntInv);
}

print "Elementi dell'array invertito: @arrayIntInv\n";