my $return = `grep -w  $searchnum $file`;
   if(length $return){  $shash{$dthread}{'luck'} = 1;}