use strict;
use warnings;

##</code><code>##

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