#!/usr/bin/perl -w

# Dato un array di interi ed un numero intero 
# costruire due array, uno contenente gli elementi
# maggiori o uguali di quello dato, l'altro 
# contenente gli elementi minori

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

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

foreach $x (@arrayInt) {
    if ($x < $el) {
        @minori = (@minori, $x);
        # @minori = ($x, @minori);
    }
    else {
        @maggiori = (@maggiori, $x);
        # @maggiori = ($x, @maggiori);
    }
}

print "Elementi dell'array maggiori: @maggiori\n";
print "Lunghezza dell'array maggiori: ".@maggiori."\n";

print "Elementi dell'array minori @minori\n";
print "Lunghezza dell'array minori ".@minori."\n";