做一个整洁（perl）回归

Question

这很可能是一个愚蠢的问题，但这里有：

在许多模块中，我有多个点可以回到调用脚本。但在实际返回之前，我需要做一些整理工作，例如将目录更改为父目录等。

我写了一个子程序，为所有返回点执行此操作。但是，我能想到的唯一方法是使用

tidy_up();
return (LIST);

我想有一个接受返回值LIST的sub并让该sub也返回到调用脚本：

tidy_up_and_return(LIST);

那可能吗？