my @list = () ;
if(@list){
print "Not empty!\n" ;
}

my %hash = () ;
if(%hash){
print "Not empty!\n" ;
}