为什么$a成为arrayref？我没有推动任何事情.
perl -MData::Dumper -e 'use strict; 1 for @$a; print Dumper $a' $VAR1 = [];
perl -MData::Dumper -e 'use strict; 1 for @$a; print Dumper $a' $VAR1 = [];