Help for this page
push @{ $at_line{$string} }, $line_number;
$at_line{$string} = [] unless exists $at_line{$string}; push @{ $at_line{$string} }, $line_number;