foreach my $foo (@foos) {
  do_stuff($foo);
  do_more_stuff($foo);
}

sub do_stuff {
  my $foo = shift;

  if ($foo =~ /baz/i) {
    return unless $foo eq uc $foo;
  } else {
    return unless $foo ne uc $foo;
  }
  # stuff
}