@a = ();
print "try 1\n";
print "Has elements\n" if @a;

push @a, 1;
print "try 2\n";
print "Has elements\n" if @a;