Besides join, there is local $, = ', '; invoked by print @event; or, local $" = ', '; which is invoked by $foo = "@event";.