my $j = 0;
 my $z = 0;
 my @results;  
 while ($j <5)
 {  
   while ( $z < 5)
   {
   my @result_1 = `/home/devel/test1.ksh $j`;
   my @result_2 = `/home/devel/test2.ksh $j`;
   push @{ $results[$j][$z] }, \@result_1.";"\@result_2;
   $z++;
   } 
 $j++;
 }