罪罰改造板２/94

foreach (0..$#ginou) {
  $ginou = "ginou$_;$ginou[$_],";
}

ginou1;xxx,ginou2;yyy,ginou3;zzz, ....

 foreach (0..$#ginou) {
  $ginou = "ginou$_;$ginou[$_],";
}

	foreach (0..$#ginou) {
   		$ginou = "ginou$_;$ginou[$_],";
 	}
	$ginou		= $DAT{'ginou'};

$dat[0] = "ginou;$ginou,

foreach(0..5){
  $ginou[$_]=$DAT{"ginou$_"};
}

 foreach (0..$#ginou) {
  $ginou .= "ginou$_;$ginou[$_],"; # この行の$ginouの後ろ
}