my $subref = sub {print shift() . "\n";};
my $subref2 = sub {print "Length is " . length shift() . "\n";};
foo($subref);
foo($subref2);

sub foo {
 my $code = shift;
 foreach (@some_array) {
  &$code($_);
 }
}