my $tlc = substr $line, 0, 3;
    push @{ $offsets_for{$tlc} }, $offset;