sub args { print "$_\n" for @_ }

args( qw( Perl is fun ) );