Well,

push @{ $at_line{$string} //= [] }, $line_number;
[download]

or even

push @{ $at_line{$string} ||= [] }, $line_number;
[download]

would do.