if (open(OUTFILE, ... )) {
  push(@file_did_save, $filename);
} else {
  push(@did_not_save, $filename . ' ' . $!);
}