use strict;
use warnings;

my ( $i, $success, $fail );

while ( my $line = <DATA> ) {
	$i++;
	my %tuples = map { $_ => 1 } $line =~ /(\d*,\d*),?/g;
	$success++ if exists $tuples{'1,1'};
	$fail++    if exists $tuples{'1,2'};
}

print "Total Lines: $i\nSuccess: $success\nFail: $fail\n";

__DATA__
1,1,,,,
1,2,,,,
3,4,1,1,,
1,1,1,1,,
5,6,3,4,1,2
1,1,1,1,1,1
,,,,1,1
,,1,2,,
,,1,1,1,2
,,,,,
5,6,3,4,2,2