* A. Pagaltzis <[EMAIL PROTECTED]> [2002-11-20 02:00]: > my ($i, $total); > ($total += $_) < 90 or last, $i++ for map length, @names; > $str = join ',', @names[0 .. $i]; > $str .= ', etc' if $i < $#names;
Sorry, that would of course be ($total += length) <= 90 or last, $i++ for @names; The map was left over from an earlier different approach. -- Regards, Aristotle
