#!/usr/bin/perl -w

# Dato un array di interi ed un numero intero contare
# le occorenze di questo nell'array

use strict;
my(@arrayInt, $el, $x, $occ);

@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";

$occ = 0;
foreach $x (@arrayInt) {
    if ($el == $x) {
        $occ++;
    }
}

print "Occorrenze trovate: $occ\n";