local *getNewDrawBall = sub { #workaround for 
+scoping inner subroutine with typeglob - ugly Per
+lism
         my $type = shift;
        my $temp2;
        while (1){
        $temp2 = &getDrawBall($type);
        if (exists $seen{$temp2})
        {
            next;
        }else{ $seen{$temp2}++;return $temp2;} #pr
+int "DEBUGdraw: $temp\n";
        }
    };