#!perl
use strict;
my $testfile = '200-million-combos.txt';
unless (-e $testfile){
  open OUT,'>',$testfile or die "$!";
  my $record = '890123456';
  for (1..200_000_000){
    print OUT $record."\n";
  }
  close OUT;
}
my $counter1 = 0;
my $counter2 = 0;
my $t0 = time;
open FH, '<', $testfile or die "$!";
while (<FH>) {
  ++$counter1;
  if (/123456$/){
    ++$counter2;
  }
}
close FH;
my $dur =  time-$t0;;
print "$counter1 read in $dur secs\n";