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