use Data::Dumper;
print Data::Dumper::Dumper(\%index);