Select Code to Download

sub filter {
  my $where = shift;
...

  return @out;
}

sub filter {
  my $where = shift;
...

  return @out;
}

$ cat foreach_inner
#!/usr/bin/perl
...
    my $pointless = "$foo.$bar";
  }
}

$ time ./foreach_inner

real    0m8.975s
user    0m8.954s
sys    0m0.013s

$ cat foreach_outer
#!/usr/bin/perl
...
    my $pointless = "$foo.$bar";
  }
}

$ time ./foreach_outer

real    0m14.106s
user    0m14.092s
sys    0m0.003s