chomp $list;
push @array,$list if length($list) > 0;