Perl-判断一个哈希键值对是否存在并添加

常常这样判断, 并添加没有的键值对:

unless ( $output_handles{$name} ) {
    open my $fh, '>', "$name.info"
        or die "Cannot create $name.info: $!";
    $output_handles{$name} = $fh;
}