use CGI 'param';
my %formValues = map { $_ => scalar param($_) } param;

##</code><code>##


$dbh->do(
    sprintf "Insert into sell values (%s)",
    join ' , ', map { $dbh->quote($_) }
      $tid,
    $formValues{'salesperson'},
    $clid,
    $formValues{'comid'},
    $formValues{'ps'},
    $formValues{'ds'},
);