I'm replying to myself because my post looked so poor.

if($forest{trees}rand->falls() 
	and !defined($forest{people})
{
   $_ =~ /sound/ ? true : false;
}