#####
	sub mult {

       		my ($a, @b) = @_;
		:	:
		return @c;
		}
	#### 

##</code><code>##

   ####
   for $i (0..$N){
	   @results  = mult($a,@b[$i]);
	   }
   #### 

##</code><code>##

   ####
   for $i (0..$N){
	   @results[$i][]  = mult($a,@b[$i]);
	   }
   ####