Select Code to Download

for my $key ( @locking keys ) {
    lock( $h{ $_ } );
##  Presumably code goes here
    cond_signal( $h{ $_ } );
}

#!/usr/local/perl_ithreads/bin/perl
use strict;
...

    cond_signal( $guard ); ## unlock the guard (atomic)
}