for ($foo->{bar}) {
    if ($_ eq "foo") {
    }
    elsif ($_ eq "bar") {
    }
    ...
}