until($k==2){
	@averages[$k]=int((@scores[$i][$j]+@scores[$i][$j+1]+@scores[$i][$j+2]+@scores[$i][$j+3])/3);
	$i++;
	$j++;
	$k++;
}