Select Code to Download

while( my $next = $iter->() ) {
    $next = $$next;
    ...
}

while( my $next = $iter->() ) {
    ($next) = @$next;
    ...
}