in reply to Accessing the hash name in perl

It can be easier :) Define your hash in eg. My_var.pm:
package My_var; use strict; use warnings; our $test = { 'hash1' => { 'paramA' => '00' , 'paramB' => 'FF' , }, 'hash2' => { 'paramA' => '01' , 'paramB' => '02' , }, 'hash3' => { 'paramA' => '00' , 'paramB' => '03' , }, }; 1;

Mind "our $test;" and "1;" at the end of package file. Info on our.

In your script, just include the package

#!/usr/local/bin/perl use strict; use warnings; # CPAN package use Data::Dumper; # private package use My_var; print "$My_var::test->{hash1}{paramA}\n"; print Dumper( $My_var::test );

Output:

00 $VAR1 = { 'hash1' => { 'paramB' => 'FF', 'paramA' => '00' }, 'hash2' => { 'paramA' => '01', 'paramB' => '02' }, 'hash3' => { 'paramB' => '03', 'paramA' => '00' } };