print "name code = $source{very_long_key_name}\n";            # 1
print "converted = $names{ $source{very_long_key_name} }\n";  # name1
print "dest name = $dest{name}\n";                            # 1