#!perl

use strict;
use warnings;

my( $k, $i, $j ) = ( 0, 0, 0 );

until($k==2){
  # @averages[$k]=int((@scores[$i][$j]+@scores[$i][$j+1]+@scores[$i][$j+2]+@scores[$i][$j+3])/3);
  print "AVERAGE [$k] = (scores[$i][$j] + scores[$i][".($j+1);
  print "] + scores[$i][".($j+2);
  print "] + scores[$i][".($j+3);
  print "]) /3)\n";
  $i++;
  $j++;
  $k++;
}