@y= ('a','b','c','d');
$x = (1, 2, @y);
print "x = $x\n";