$at_line{$string} = [] unless exists $at_line{$string};
    push @{ $at_line{$string} }, $line_number;