foreach (@Array) {
   foreach my $tmp (keys %$_) { 
      print "$tmp\n" 
   }
}