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