while (<INFILE>) {
  my $key = $_;
  my ($num, $name) = ($_ =~ /(\d+)\s*[,]\s*(.*?)\s*$/);
  my %rec = { productnumber => $num, 
              productname => $name,
            };
  $product{$key} = \%rec;
}