my @test = qw( test trial good );
my $var = \@test;
push @{$var}, "Testing";
print join(' - ', @test), "\n";