while ($level <= 10) {
	foreach $dep (keys %jobs) { 
		foreach (@{$jobs{$dep}{$level}}) {
      	print "Key:$dep Value:$_  Lvl:$level  Seen:$seen{$_}\n";
        if ($seen{$_} eq '') { push( @{$jobs{$dep}{$nextlevel}},@{$jobs{$_}{$level}} ); }
        $seen{$_} = 1;
        next if ${$jobs{$_}{$level}}[0] eq "$dep";
        last if $seen{$_} == 1;
		}
	
	}
	%seen = '';
	@temparray = '';
	$level++;
	$nextlevel++;
}