print "\nEnter a brief description:  ";
  my $desc = join('', <STDIN>);
  my $pg_array = join ('', map {split ' '} $desc);
  
  $pg_array =~ s/, $//;
  $pg_array = "{$pg_array}";
  
  print "$pg_array\n\n";
  
  $sth = $dbh->prepare("
    INSERT INTO $tbl_name (product_id, model_number, description)
    VALUES (?, ?, ?)
  ");
  
  $sth->execute($prod_id, $mod_num, $pg_array);
  $sth->finish();