每次push（）调用后添加索引

Question

我在数组上使用Perl push，但每次我在数组上推送内容时，它也会推送项目的索引。
我同时在2个阵列上做同样的动作，一个按预期推动，但另一个不按。
什么可能导致这种无法解释的行为？

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, '__';