>perl -le "@a = 'test' x 0; print scalar @a" 1 >perl -le "@a = ('test') x 0; print scalar @a" 0