if ($file) {
    ...
    open my $file, "< $file",
      or print &reasons();
    ...
        foreach my $file (@all_lines) {