多次元配列

#!/usr/bin/perl

@a=(['a0','b0'], ['a1','b1'], ['a2','b2']);    #多次元配列

for($b=0; $b<3; $b++){
    for($c=0; $c<2; $c++){
        print("a[$b][$c]=$a[$b][$c]\n");
    }
}