my ($a, $c) = @array[0,2];