關於perl的壹個問題

use strict;

# array 1

my @Names=( "Descriptors.", "Toxicity.", "Prediction.");

# array 2

my @Conform=( "Analyze.", "Generate.");

# array 3

my @groupNames=( \@Names, \@Conform);

#循環

for( my $i=0;$i<2;$i++)

{

my @tempArray=@groupNames[$i];

DisplayProtocolNames(\@tempArray);

}

# 子函數

sub DisplayProtocolNames

{

my (@info)=@_[0];

my @tempArray=@info;

my $count=$#{$tempArray[0][0]};

for(my $i=0;$i<=$count;$i++)

{

my $temp =$i+1;

print "($temp),$tempArray[0][0][$i]\n";

}

}