my $line_number = 0;
while (<TICKS>) {                   # sic
   print "line $line_number: $_";
   $line_number++;
}