my @ar = grep /""$/, @array;