my @y = 1 .. 8;
my $x = @y, 2, 3;
print $x;