#!/usr/bin/perl -w

# Dato un array di interi ed un numero intero
# letto da console  dire se l'elemento e'
# presente nell'array. Eseguire la ricerca due volte.

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

@arrayInt = (2, 4, 5, 1, 5, 6);

print "Inserisci il numero da cercare: ";
$el = <STDIN>;
chomp($el);

$trovato = 0; # leggi: false!
$i = 0;
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";
}

print "Inserisci il numero da cercare: ";
$el = <STDIN>;
chomp($el);

$trovato = 0; # leggi: false!
$i = 0;
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";
}