my $i;
for($i = 0, $i<200, $i+10){
    $diagramm->line(80,490-$i,700,490-$i,$black);
}