#!/usr/bin/perl
use warnings;
use strict;
my @a = qw(a b c);
my $aref = \@a;
push($aref, "d");
for my $i (@a) {
    print "$i\n";
}