Re: The distinction between "do BLOCK while COND" and "EXPR while COND" should go

>However, I really don't want to see 'return' become a kind of 'last'
>for do{}.  How would I return from a subroutine from within a do loop?

You already can't do that (as it were) from within an eval.  

But I while I am not completely bothered by letting the value
dangle here:

    ($msg, $defstyle) = do {  
	my $i = find_when($orig);
	$i == 1 ? ("First", "Color" )  :
	$i == 2 ? ("Then",  "Rarity")  :
		  ("Then",  "Name"  )
    };

or here:

    ($FORMAT_NAME, $FORMAT_TOP_NAME) = do {
        if    ($long_form)      { qw( Long      Long_Top   ) }
        elsif ($just_inode)     { qw( Inodes    Inodes_Top ) }
        elsif ($sys5)           { qw( SysV      SysV_Top   ) }
        elsif ($bsd)            { qw( BSD       BSD_Top    ) }
        else                    { die " No format?"          } 
    };

It just kinda irks me here:

    $total += 2 * do {
	my $count = 0;
	for $n (@nums) { $count += $n }
	$count;
    };

I rather that were:

    $total += 2 * do {
	my $count = 0;
	for $n (@nums) { $count += $n }
	return $count;
    };

--tom