in reply to checking to see if a hash has data

if ( () = keys %hash ) {
  # has data
} else {
  # no data
}

[download]
Boris

In Section Seekers of Perl Wisdom