my $non_empty = grep { $a{$_} ne "" } keys %a;
print "Keys with non-empty values: $non_empty\n";

__END__
Keys with non-empty values: 2