$ perl -le '@a = (); @b = (1); print "\@a" if @a; print "\@b" if @b;'
@b