use strict;

sub sum {my $x; $x += $_ for @_; $x }
sub avg {sum(@_)/@_}

undef $/;
open(my $F, 'skaters.txt');
my @x = map{[split/,/]}grep{/\S/}split/\n+/,<$F>;

for(@x){
    @$_ = ($_->[0],avg(@{[sort{$a<=>$b}@{$_}[1..$#$_]]}[1..$#$_-2]))
}

@x = sort{$b->[1] <=> $a->[1]}@x;

printf "%-5s %-20s %-20s\n",$_+1,@{$x[$_]} for(0..2);