Help for this page

Select Code to Download

Select or download this

while (@names) {
       $next = shift @names;
...
          return; # Table is done.
       }
       $table->{$next} = $list->{$next};