#!/usr/bin/perl -w use strict; sub printwith { my ($separator, @stuff)=@_; local $, = $separator; # create temporary local $, print @stuff,"\n"; } printwith("... ","one","two","three");