#!/usr/bin/perl
        
my %data;
opendir( DIR, "input/*" );
while( my $file = readdir( DIR ))
{
    open( FILE, $file );
    while ($line = <FILE>)
    {
        chomp( $line );
        $data { $file } -> { sum } += $line;
        $data { $file } -> { count } ++;
    }
    close( FILE );
}
closedir( DIR );                        
    
open( FILE, ">", "result.txt" );
foreach my $file (sort keys %data)
{
    printf FILE "%1.2f\n", $data { $file } -> { sum } / $data { $file } -> { count };
}                               
close( FILE );