for my $foo ($_[0]->{bar}->{baz})
{
      if ($foo->{gronk})
      {
            $foo = { glarb => "oorgle" };
      }
}