And it does things which you may not expect. Well, I didn't expect them, but when I think about it, things make sense:

  DB<15> $bar = \do { my $n = @INC ; "$n entries in \@INC" }

  DB<16> print $$bar
6 entries in @INC
[download]