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