my @data = qw(d e f);
my @bigFatArray = qw(a b c);
my $smallskinnyScaler = "bigFat";
my $ref = eval "\\\@${smallskinnyScaler}Array";
push @$ref,@data;
print @bigFatArray;