open (FD,">>OTAPA_Errors");
foreach my $num (@errors)
{
         if ($flag == 1)
        {
                print FD $/,$num;
        }
        if ($flag ==0)
        {
                print FD $num;
                $flag = 1;
        }
}