perl中有选择功能吗？

Question

在bash脚本中，我们知道有一个select函数可以列出当前目录中的所有文件以及用于选择的编号。一旦选择了数字，就可以获得价值。

select application in */; do test -n "$application" && break; echo ">>> Invalid Selection"; done

perl中是否有类似的功能？

由于