some("Foo", "Bar"); sub some { my ($one, $two) = @_; } #### my @alphabet = ('A' .. 'Z'); some("Foo", @alphabet); sub some { my ($one, @alpha) = @_; }