local *_;

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