#!/usr/bin/perl
# your code goes here

my @score = prompt("5명 심사위원의 점수 입력: ").split(' ').sort[1..3];
say "유효점수: ", @score;
printf "평균: %.1f\n", ([+] @score) / @score.elems;