sample data for row comparision in perl

LINES	XY1	XY2	XY3	XY4	XY5	XY1	XY2	XY3	XY4	XY5	SUM OF NE
P1	A/A	T/T	A/A	-/-	T/T	EQ	NE	NE	EQ	EQ	2
P2	Z/Z	A/A	G/G	G/G	T/T						sum of match only from NE	%
1	G/G	T/T	G/G	T/T	G/G	0	0	1	0	0	1	50
2	T/T	A/A	C/C	C/C	T/T	0	1	0	0	1	1	50
3	T/T	G/G	T/T	G/G	T/T	0	0	0	1	1	0	0
4	A/A	C/C	A/A	A/A	A/A	0	0	0	0	0	0	0
5	A/A	A/A	T/T	T/T	A/A	0	1	0	0	0	1	50
P1	T/T	G/G	A/A	-/-	T/T
P2	A/A	-/-	G/G	G/G	T/T
1	G/G	T/T	G/G	T/T	G/G
2	T/T	A/A	C/C	C/C	T/T
3	T/T	G/G	T/T	G/G	T/T
4	A/A	C/C	A/A	A/A	A/A
5	A/A	A/A	T/T	T/T	A/A
P1	T/T	G/G	A/A	-/-	T/T
P2	A/A	-/-	G/G	G/G	T/T
1	G/G	T/T	G/G	T/T	G/G
2	T/T	A/A	C/C	C/C	T/T
3	T/T	G/G	T/T	G/G	T/T
4	A/A	C/C	A/A	A/A	A/A
5	A/A	A/A	T/T	T/T	A/A