{ local $, = "\t"; print @array, "\n"; }