while (my $in_line = <TRACEFILE>) {