while ( <FILE> ) {
  if ( /^Begin Product (.*)/i ) {  
    my %hash;
    $hash{ 'name' } = $1;  
    $hash{ 'description' } = <FILE>;
    $hash{ 'numberline1' } = <FILE>;