後、スクリプトの先頭で
my($hoge, $abc) = '';
my(@test) = ();

とかしたら劇的に速度速くなったぞ。いやマジおすすめ