@a[0,2,4] = (0 .. 2); ($a[0], $a[2], $a[4]) = (0 .. 2);