perl wise?