while (my $t = shift(@ready)){
     $shash{$t}{'data'} = shift @to_be_processed;
     $shash{$t}{'go'} = 1; 
}