sub do_stuff
{
  my $determine_what_to_do = shift;
  foreach (@some_other_list)
  {
    my $func = $determine_what_to_do->($_);
    $func->($_) if $func;
  }
}

##</code><code>##

  $func->(\@array, $_);