Suggestions other than grep -b3 :-)

[Jacqui Caren]

I have been given the task of testing a large code base.
One of the gotcha's I have found is similar to


sub ... {
  my $retval = undef;
  ...
  if (..) {
    my $retval = {};

    $retal->{a} = 1;
    ...
  }
  return $retval;
}

Any suggestions on how to catch this sort of construct?