for$a(A..C,map<>.'',0..4){++$$a{<>}for@$a=1..<>;$a!~$"or$\.=$t=$/.5*$A{$q=$`.$/}*$B{$q}*$C{$q},$x+=$t*$'}print$x/@A/@B/@C