#!/usr/bin/perl -w

# Dato un array di stringhe cerca la stringa piu` lunga 

use strict;
my(@arrayString, $maxl, $stringMaxl, $x);

@arrayString = qw(ciao sono matteo baldoni e tu?);
$maxl = 0;
print "Elementi dell'array: @arrayString\n";
print "Lunghezza dell'array: ".@arrayString."\n";

$stringMaxl = "";
foreach $x (@arrayString) {
    if (length($x) > $maxl) {
        $maxl = length($x);
        $stringMaxl = $x;	
    }
}

print "Lunghezza massima: $maxl\n";
print "Stringa piu' lunga: $stringMaxl\n";