foreach my $ele (@array) {
  print "$ele\n";
for my $key ( keys($ele) ) {
print "$ele{$key}\n";
}
}