sub bar
{
        my ($foo) = @_;

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

        return;
}