for(my $i = 1; $i <= length($zeile); $i++){
print 1..60
print 61 -120
print rest
}