open (FH, '<', "../Tests/10-million-combos.txt");
$counter=0;
$counter2=0;
while (<FH>) {
	if (/123456$/) {++$counter2;}
}
	print "\n";
print "Num. Line : $. - Occ : $counter2\n";
close FH;