Perl 使用哈希的引用

 $ref = \%hash_clomnname_linevalue;

$hash_of_whole_table{$table_name} = {%$ref};