$command='insert into mailstore.received (SenderName,SenderEmailAddress,SentOnBehalfOfName,ReplyRecipientNames,SenderEmailType,SentOn,ReceivedTime,MessageClass,Size,Subj,SentTo,Unread,InternetCodepage,importance,EntryID,ConversationIndex,ConversationTopic,Class,BodyFormat,Body) values (?,?,?,?,?, ?,?,?,?,?, ?,?,?,?,?, ?,?,?,?,?)';
$sth=$dbh->prepare($command);

##</code><code>##

@values= map $msg->{$_}, qw{SenderName SenderEmailAddress SentOnBehalfOfName ReplyRecipientNames SenderEmailType SentOn ReceivedTime MessageClass Size Subj SentTo Unread InternetCodepage importance EntryID ConversationIndex ConversationTopic Class BodyFormat Body} ;

$rv=$sth->execute(@values);