my $x = 1,
2,
3;

##</code><code>##

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