$dest{name} = not exists $source{very_long_key_name} ? '' :
              $names{ $source{very_long_key_name} };