use threads; 
use threads::shared;
use Time::HiRes qw[ time ];

my $h:shared = ( 1..4 ); 
print time; 
for ( 1..1e7 ) { 
    1 while each %h;
}
print time;

1227886927.80338
1227886932.10025