concatener une variable plus une chaine de caractère pour référencer une autre variable

Bon j'abandonne cette idée bancale retour aux fondamentaux avec table de hash et références

my $current_DATAMODELCLASS;
my %table_catalog=('EventParsing_modele' => {}
                   ,'EventParsingItem_modele' => {}
                   ,'EventParsingItemRegExpr_modele' => {}
                   );

foreach my $current_DATAMODELCLASS (qw(EventParsing EventParsingItem EventParsingItemRegExpr)){
    print "DEBUG: $current_DATAMODELCLASS\n";
    foreach my $data_m_record (@DataModelColumn_table){
        if ($data_m_record->[$DataModelColumn_idx{DATAMODELCLASS}] eq "$current_DATAMODELCLASS") {
            my $column_code=$data_m_record->[$DataModelColumn_idx{CODE}];
            my $column_type=$data_m_record->[$DataModelColumn_idx{TYPE}];
            $table_catalog{"${current_DATAMODELCLASS}_modele"}->{$column_code} = $column_type;;
            print "$column_code - $column_type\n";
        }
    }
}
print p %table_catalog;