my %HoH = (); #Something
my @IDs = ();
my ($key,$value);
while( ($key,$value) = each(%HoH) )
{ push(@IDs,$key) if  ($HoH{$key}{key1} eq "foo" && $HoH{$key}{key2} e
+q "bar") || $HoH{$key}{key4} < 10; }
[download]

Just a guess...

Greetz
Beatnik
Perl is like sex: if you're doing it wrong, there's no fun to it.