DESTROY
{
    my $head    = shift;

    $head   = delete $head->[0]
    while $head;
}