$a=a;
$b=b;
@x= qw(a,b,c);
@y=qw(c,d,e);
{my$var=@x; print "$var\n";} # This prints 1}
$var = $a lt $b ? "@x":"@y";
print "\n$var\n"; # This prints a,b,c
$a=$b ? "@x" : "@y";
print "$a\n"; # This prints a,b,c