foreach (0 .. $#Array) {
   foreach my $tmp (keys %{$Array[$_]}) { 
      print "$tmp\n" 
   }
}