use Data::Dumper; package genomic_data; ... sub new { ... my %h = $self->{"gene_idx"}[0]; print Data::Dumper(%h); ... }