my $max = (sort map { length } @test)[0];