my %new = map { $_=> $old{$_} } grep { defined $old{$_} } @array;