use strict;

my @test = (test,trial,good);
my $var = "test";
push @{$var}, "Testing";