http://qs1969.pair.com?node_id=336273


in reply to while (scalar()

while (scalar(@ra)) 
{
while (scalar(@rb))
{
while (scalar(@rc)) 
{
# rest
}
}
}

[download]
but it doesn't make sense anyway

In Section Seekers of Perl Wisdom