@b=qw(h o r s e );
$x=4;

push @a,$x,((@b) x $x);
print join(",",@a);