use strict;
use warnings;

my @args = sort { length($b) <=> length($a) } @ARGV;
print "longest is $args[0], length = ", length($args[0]), "\n";

__END__

longest is ert, length = 3