
@blah= ("a","b","c");
@blah2= ("x","y","z");


$blaharr[0] =  [ @blah ];
$blaharr[1] =  [ @blah2 ];


foreach $aref ( @blaharr )
{
    print "\t  @$aref ";
}
print"\n";

$rowa = $blaharr[0];
@rowaarr = @$rowa;
$rowb = $blaharr[1];
@rowbarr = @$rowb;
print("0: @$rowa   or   @rowaarr\n");
print("1: @$rowb   or   @rowbarr\n");

