$dest{name} = $names{ $source{very_long_key_name} };