for ($i = 0; $i<=$#array; ++$i) {
   undef $array[$i];
}