perl -Mstrict -lw
my %self;
$self{$_}{blahblah} = 0 for qw/1 2 3/;
while (my $k = each %self || each %self) {
    print "testing:$k";
    print "true for $k" and last if $self{$k}{blahblah};
}
__OUTPUT__
testing:1
testing:3
testing:2
testing:1
testing:3
testing:2
testing:1
... etc. ...