# untested pseudocode

sub start{
   my @ids = (1..10);

# repeat may not be available in Tkx.... see link above
  Tkx::repeat(1000, sub { 
       my $id = shift @ids;
     if ($id <= 10){
     $txt_processed_domains->configure(-state => "normal");
     $txt_processed_domains->insert_end( "$id => Available\n" );
     $txt_processed_domains->configure(-state => "disabled");
     } 
      else {  Tkx::tk___messageBox( -message => "Completed!" ); } 
   });
}