Perl:進階二維陣列操作

sub func2{
    #print "func2 ,para:$_[0]\n";
    return "[RETURN]$_[0]";
}
my @LoL=();


#initialization  [NOTE]:沒有作initialization就直接運算容易導致問題發生
for $x (3,7,9){
    $LoL[$x][20]="initStr";
    }
    
#print out
for $x(3,7,9){
    print $LoL[$x][20],"\n";
    }


#operation on them
for $x ( 3, 7, 9 ) {


        #print "testOp >>   ",$LoL[3][20]+= func2(3),"\n" ;
        $LoL[$x][20] =$LoL[$x][20].func2($x);
        print "\n";
    }
#print out result
for $x(3,7,9){
    print $LoL[$x][20],"\n";
    }




#輸出結果:

initStr
initStr
initStr






initStr[RETURN]3
initStr[RETURN]7
initStr[RETURN]9