my $d;
my $e;
for($d = 0; $d<736; $d+=23){
    for($e = 0; $e<32; $e++){
        $diagramm->string(gdLargeFont,90+$d,510,$e,$blue);
    }
}