sub my_map { my $special_thingy = shift; foreach my $item (@_) { apply($special_thingy, $item); } } #### my ($special_thingy, @list_of_items) = @_; #### sub my_map { foreach my $item (@_[1 ..$#_]) { apply($_[0], $item); } } #### sub my_map { for (my $i = 1; $i < @_; $i++) { apply($_[0], $_[$i]); } }