use Data::Dumper; warn Dumper \%XYZ::Hash1; #### our (%Hash1, %Hash2, %Hash3);