Das hat nichts damit zu tun, ob deine Subroutinen was liefern.
Ein eingebundenes Perlprogramm (ähnlich einem Modul) muss, wenn es mit require aufgerufen wird immer am Ende einen wahren Wert zurück liefern, deswegen das 1; am Ende des eingebundenes Perlprogramm.
Siehe auch require:

Quote

The file must return true as the last statement to indicate successful execution of any initialization code, so it's customary to end such a file with 1; unless you're sure it'll return true otherwise. But it's better just to put the 1; , in case you add more statements.