とりあえず、内容を簡単にしようと、サブルーチンを作ってみます。 #メイン処理 eastblue(); #サブルーチン呼び出し grandline(); #サブルーチン呼び出し #サブルーチン sub eastblue { my @onepiece = ("ruffy,zoro,sanji,nami,tyopper"); #麦わら海賊団を…