my @files = undef;   #list of files to run script on
while(my $line = <INPUT>){
    chomp($line);
    push @files, $line;
}

##</code><code>##

my @files = <INPUT>;
chomp @files;

##</code><code>##

my $avg = <IN> + <IN> + <IN> + <IN>
        + <IN> + <IN> + <IN> + <IN>
        + <IN> + <IN> + <IN> + <IN>;
$avg /= 12;