for ($i=0; $i<=@ARGV; $i++)) {
    $file = $ARGV[i];
    print $file;
    print "linee:". qx(cut $file | sort -u | wc -l)
    print "caratteri:".  qx(cut $file | uniq | wc);

}
print "linee in comune: ".qx(cut /home/utente/Desktop/$ARGV[0] /home/utente/Desktop/$ARGV[1] | sort | uniq -d | wc);