undefined shuffle

使用materials studio运行perl脚本时出现undefined subroutine $main : : shuffle called