删除元素时,Perl中的哈希值会缩小吗？

my %hash = (
    key1 => 'value1',
    key2 => 'value2',
    key3 => 'value3',
);

delete $hash{key1};

my $size = scalar keys %hash;
print "Hash size: $size\n";

sub shrink_hash {
    my %hash = @_;
    my $keys = keys %hash;
    my $values = values %hash;
    my %new_hash;

    for (my $i = 0; $i < $keys; $i++) {
        $new_hash{$i} = $values->[$i];
    }

    return %new_hash;
}

my %hash = (
    key1 => 'value1',
    key2 => 'value2',
    key3 => 'value3',
);

delete $hash{key1};

my %new_hash = shrink_hash(%hash);

my $size = scalar keys %new_hash;
print "Hash size: $size\n";