2d array

[jnarayan81]

 ## Declare few single dimensional array 
my @row1 = qw(71 22 15 10 51); 
my @row2 = qw(91 82 28 11 91); 
my @row3 = qw(11 72 37 58 20); 
my @row4 = qw(21 42 63 24 16); 
my @row5 = qw(81 32 53 54 42); 


## Adding all the single dimensional array reference into another arra
+y


my @array_2d = (\@row1, \@row2, \@row3, \@row4, \@row5);


print "Print Using Array Index\n";
for(my $i = 0; $i <= $#array_2d; $i++){
   # $#array_2d gives the highest index from the array
   for(my $j = 0; $j <= $#array_2d ; $j++){
      print "$array_2d[$i][$j] ";
   }
   print "\n";
}

Is there any way to pass dynamic array values in my @array_2d i.e by using some loop ...

Thanks Jit

Sorry Monks, I din't explained my questions well. Below is the part of my code were I store the coordinates in @{"$speciesName"."_brk"}; Now every time I need to change the @matrix=\(@species,@chromosome,@brk_cordinates,@brk_decision,@chimp_brk,@dog_brk,@horse_brk,@human_brk,@monkey_brk,@pig_brk,@rat_brk); and undef at the end manually. I need to get rid of it. Note: @unique_species and @target_species is not fix, it can be anything.

            for ($aaa=0; $aaa<=$#unique_species; $aaa++) # The @unique
+_species is Chimp,Dog,Horse,Human,Monkey,Pig,Rat
                {
                @brk_species_name=split /\_/,$unique_species[$aaa];
                my $speciesName= lc($brk_species_name[0]);
                @{"$speciesName"."_brk"}=0; 
                foreach $cor(0..$#target_species) 
                    {    
                    if ("$target_species[$cor]" eq "$unique_species[$a
+aa]")
                        {
                        #print "$target_species[$cor]\t$unique_species
+[$aaa]\t$target_brk_cordinates[$cor]\n";
                         push @{"$speciesName"."_brk"},"$target_brk_co
+rdinates[$cor]"; 
                        }
                    }
                 @{"$speciesName"."_brk"}=sortUniqueHash (@{"$speciesN
+ame"."_brk"});
                my $arrayEntries=checkNumber (@{"$speciesName"."_brk"}
+);
                push (@allDecision, $arrayEntries);
                push (@allBreakpointCoordinates, @{"$speciesName"."_br
+k"}); 
                    @{"$speciesName"."_brk"}=join (',',@{"$speciesName
+"."_brk"});  ## it generate one string and enter in an array
                }
     

                # Chimp,Dog,Horse,Human,Monkey,Pig,Rat same order as s
+ps file names in matrix ....      Need to change ...

           @matrix=\(@species,@chromosome,@brk_cordinates,@brk_decisio
+n,@chimp_brk,@dog_brk,@horse_brk,@human_brk,@monkey_brk,@pig_brk,@rat
+_brk);

        #print "Print Using Array Index\n";
        for(my $i = 0; $i <= $#matrix; $i++){
           # $#array_2d gives the highest index from the array
           for(my $j = 0; $j <= $#matrix ; $j++){    
                  print OUTFILE "$matrix[$i][$j] ";
                   }
               print OUTFILE"\t";   
                }
                print OUTFILE "\n";
                


undef @target_species;  undef @species; undef @chromosome;undef @matri
+x; undef @brk_cordinates;  undef @target_brk_cordinates;  undef @da; 
+  undef @brk_decision;
undef @dog_brk; undef @horse_brk; undef @monkey_brk; undef @pig_brk; u
+ndef @human_brk; undef @chimp_brk; undef @rat_brk; undef @mouse_brk; 
+undef @pig_brk; undef @dog_brk; undef @horse_brk; undef @cattle_brk; 
+undef @allBreakpointCoordinates; undef @all_sps_array;
undef @allDecision;  undef @matrix;