perl -le 'use strict;my @a=("a");@a=();print "Defined" if defined @a;print scalar @a'