take()'s return value

[gabriele renzi]

Hi everyone,

I wonder: why does take inside a gather structure returns undef?
I think it would be nicer if it could return the taken value, so that, 
for example one can write something like:

 say take 2

or like:

 while cond($n) {
  my $res = compute($n)
  $n /= take($res)
 }

there is a reason why this is a completely stupid idea?