Neither can I now and the window I was working in is long since closed so I can't see what I did to generate it :-(

As you say, this

$ perl -we '
> ( $dg, $vo ) = map { map { chomp; lc } scalar <> } 1 .. 2;
> print qq{$dg, $vo\n};
> print q{-} x 15, qq{\n};
> print for <>;' zzzz
aaaa, bbbb
---------------
CCCC
DDDD
EEEE
$
[download]

works without any warnings. I will update my original node.

Cheers,

JohnGG