my @x = (6 .. 10);
my $a = (6 .. 10);
my $b = @x;
print "$a $b\n";