my $foo = [
        { foo => { bar => 'baz' } },
];

foreach my $foo_entry (@$foo)
{
        foreach (keys %$foo_entry)
        {
                if (defined($foo->{$_}->{foo})
                 && defined($foo->{$_}->{foo}->{bar}))
                {
                        return $foo->{$_}->{foo}->{bar};
                }
        }

        return;
}