my $RCPT;
foreach  $RCPT ($tostring)
{
   
}