use warnings; use strict; sub mysub($$) { print join("\n", @_); } mysub("1", "2", "3");