while ( defined $curr ) {
    if ($curr->[NEXT]->[VALUE] == $value) {
        $curr->[NEXT] = $curr->[NEXT]->[NEXT];
    } else {
        $curr = $curr->[NEXT];
}