use strict; my %big = (A => '1', B => '2', C => '3', D => '4', E => '5'); my %small = (A => '0', B => '0', C => '0'); %small = map { $_, $big{$_} } keys %small; print join ', ', %small;