Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
601    700    0    0
701    800    1    1
801    900    1    2

Select or download this

1    100    1    2
101    200    1    2
...
601    700    1    0
701    800    1    1
801    900    1    2