Either use a new variable each time...

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

or allocate a new anonymous hash each time...

foreach $row (@rows} {
  $hrec = { # Note: different bracket
  # etc...
  }
  $num = push @products, $hrec;
}
[download]

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>