@a = (1,2,4,6,8);
$a = @a;
print $a;