Select Code to Download

local *_;

...
    $_ = pop @left_to_lock;
    lock( $h{ $_ } );
goto LOCK_LOOP if @left_to_lock;