Select Code to Download

my @a =();
my @b =();
...
  }
  print $a[0] - $b[-1] . "\n"
}

while(<IN>){
  $cnt++
}

file size: 70GB
...
real    157m13.245s
user    152m8.520s
sys    1m26.660s