push @{ $at_line{$string} }, $line_number;