foreach my $row (@rows){
  foreach my $key (keys %$row){
    print "$key: $row->{$key}\n";
  }
}