for $index (3..$#$arr_ref2)
		{
                     
		$ratio = sprintf( "%.2f%s", $$arr_ref2[$index]/$$arr_ref1[$index],"\t");
		#print OUT1 "$ratio";
					
		} 
                print OUT1 "\n"; #print D to E columns into next line after one loop
                push (@data1, $ratio1);
                print OUT1 ($data1);
            }