Help for this page

Select Code to Download

Select or download this
```
use strict;
use warnings;
```

Select or download this

foreach $line (@m3,@m5){
    if ($m3[$line] eq $m3[$line+1]) {
...
        $m5[i+1]=$m5[i]+1;
    }
}