foreach $index (keys %{$_[0]}){ print "$index\n"; }