$ cat input.txt 
5 5
6 11 16 7 12 
$ perl -e '@j=split$",<>;print$% map$%+=2*$q[$_%@j[1]]++,split$",<>' input.txt 
$ perl -e '@j=split$",<>;map$r+=2*$a[$_%@j[1]]++,split$",<>;print$r' input.txt 
8