in reply to performing operation on elements not in list?
my @keep = qw [two three]; my %keep; @keep{@keep} = @hash{@keep}; map {$hash{$_} = 0} for keys %hash; @hash{@keep} = @keep{@keep}; [download]