foreach my $line (@file) {
    my @good_nums;
    ...
    ...
}