my $non_empty = grep { $_ ne "" } values %a;