That subroutine could return a value, though.
The last returned value within the subroutine will be the return value of the subroutine.
perldoc -f close
" Closes the file or pipe associated with the file handle, returning true only if stdio successfully flushes buffers and closes the system file descriptor. "