$sth = $dbh->prepare("$ins") or die $dbh->errstr;
 $sth->execute(map(scalar escapeHTML(param($_)), qw(cat itemid des lon
+gdes size o1n o1o o2n o2o o3n o3o c1n c1v c2n c2v c3n c3v)),$price,$s
+mall,$large) or die $dbh->errstr;
[download]

Works great, im problay going to make my own sub that will do this.