use warnings;
use strict;

 sub printer;

 printer 'hello','world','again'; # NOTE HERE

 sub printer{
   print $_,$/ for @_;
 }