while((exists $this{$job}) || (exists $this{$management}))
{
	my $priority = new Top::Priority(rand($job));
	$sanity--;
   sleep(60);
}