That doesn't solve the problem at all. It fails for exactly the same reason:

$ perl -le '@a = (undef, ""); @u = do {@h {@a} = @a; values %h}; print
+ scalar @u'
1
$
[download]

Abigail