foreach my $field_name (keys %{ $row_href }) {
  my $value = $row_href->{ $field_name };
  print "$field_name: $value \n";
}