perl ファイルに連番をつける

解凍してみたら文字化けしていた、もしくは、ファイル名が長すぎるときなどに使います。