sub my_map { my $special_thingy = shift; foreach my $item (@_) { apply($special_thingy, $item); } }