my @map;
foreach my $com1 (0 .. 199){
foreach my $com2 ( 0 .. 150 ){
$map[$com1]->[$com2] = 1;
}
}


上記の処理をアルファベットの x を使って my と同時に一行で書ける処理があったような気がするんですが、
どうにも思い出せません。
すみませんけど教えてください。