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