$i=0;
foreach (@old)
{      if ($old[$i] != defined)
       {    splice @old,$old[$i],1; }
$i++;

}