perldata

Hi!

Please anybody correct the following line in perldata:
    @days        # ($days[0], $days[1],... $days[n])

it must be
    @days        # ($days[0], $days[1],... $days[n-1])

1 .. n, but
0 .. n-1

Thx