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

print $dest{name}; # name1