foreach $row (@rows} {
  my %hrec = (
  # etc...
}