next (perldoc -f next) is for skipping over a loop iteration. Since your subroutine does not appear to be a loop, you should probably use something like return (perldoc -f return) to exit the subroutine. Read the caveats in the documentation, though. ;)