在Perl中,如何在遍历哈希时跳过空键？

#!/usr/bin/perl

use strict;
use warnings;

my %hash = (
    key1 => "value1",
    key2 => "",
    key3 => "value3",
    key4 => undef,
    key5 => "value5"
);

foreach my $key (keys %hash) {
    if (defined $hash{$key} && $hash{$key} ne "") {
        print "Key: $key, Value: $hash{$key}\n";
    }
}