sub foo { my ($needle, @haystack) = @_; ... }