#!/usr/bin/perl -w

# Dato un array di interi ed un numero intero 
# dire se l'elemento e' presente nell'array

use strict;
my(@arrayInt, $el, $i, $trovato);

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

$trovato = 0; # leggi: false!
$i = 0;
# while ($i < @arrayInt) {
while (($i < @arrayInt) && !$trovato) {
    print "Controllo l'elemento $i-esimo\n";
    if ($el == $arrayInt[$i]) {
        $trovato = 1; # leggi: true!
    }
    $i++;
}
if ($trovato) {
    print "Trovato!\n";
}
else {
    print "Non trovato!\n";
}