my $i=0;
my ($to, $from);
for(;;)
{

 if (not exists $need[$i])
{
last;
 }

if($need[$i] =~ /To:/)
 {
 $to = $need[$i];
 }

 else
 {
$to = Header::To();
 }

if($need[$i] =~ /From:/)
 {
 $from = $need[$i];
 }

  else
  {
  $from=Header::From();
  }

   $i++;
}