#!/usr/bin/perl

use strict; # https://www.perlmonks.org/?node_id=11155013
use warnings;
use feature 'bitwise';
use List::AllUtils qw( reduce max );
$SIG{__WARN__} = sub { die @_ };

my $longest;
my @strings = split ' ', <<END;
one two three four five six seven eight nine ten
END

$longest = max map length, @strings; # maybe simplest
print "longest: $longest\n";

$longest = max map y///c, @strings; # golf trick, one char shorter :)
print "longest: $longest\n";

$longest = length reduce { $a |. $b } @strings; # or'ing strings
print "longest: $longest\n";

$longest = reduce { max $a, length $b } 0, @strings; # internal max()
print "longest: $longest\n";

# takes a lot of length()'s
$longest = length reduce { length($a) >= length($b) ? $a : $b } @strings;
print "longest: $longest\n";