#! perl
use strict;
use warnings;

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

my @a = qw(1 2 3);

say for @a;