use strict;
my @test=qw(test trial good);
my $testref=\@test;
push @$test, "Testing";