Добавление индекса после каждого вызова push ()

Question

Я использую Perl push в массиве, но каждый раз, когда я помещаю что-то в массив, он также увеличивает индекс элемента. Я выполняю одно и то же действие одновременно с двумя массивами, и один выдвигается, как ожидалось, а другой - нет.
Что может быть причиной этого необъяснимого поведения?

if ($var->{color} == 1) {
    push @x, $var->{variable}.'-l';  
    push @y, $var->{variable}.'-p';
}
else {
    push @x, '__',
    push @y, '__',
}

y имеет данные, как ожидалось, но x не имеет.

Answer 1

Вы хотите точки с запятой, а не запятые здесь:

push @x, '__';
push @y, '__';