use strict;
use warnings;

my $longest = '';

for my $x (@ARGV) {
        if(length($x) > length($longest)) {
                $longest = $x;
        }
}

my $length = length($longest);
print "longest argument is '$longest' - length = $length\n";