open (FH, '<', "../Tests/10-million-combos.txt");
print "Loading the file...\n";
while (<FH>) {
	push (@_file_to_parse, $_);
}
print "Counting the file...\n";
$NumberOfLine=@_file_to_parse;
print "Searching 123456$...\n";
@_result=grep {/123456$/} @_file_to_parse;
$NumberOfResult=@_result;
print "$NumberOfResult - $NumberOfLine\n";
close FH;