#! perl
use strict;
use warnings;

sub say (_)          # <-- ADD THIS
{
    print @_, "\n";
}

my @a = qw(1 2 3);

say for @a;

##</code><code>##

 0:16 >perl 1151_SoPW.pl
1
2
3

 0:16 >