<>=~$",$coin{$str[$_]=$`.$/}=$' for 0..4; ++$A{<>}for@A=1..<>; ++$B{<>}for@B=1..<>; ++$C{<>}for@C=1..<>; for(@str){ $\.=$/.$A{$_}*$B{$_}*$C{$_}*5; $x+=$coin{$_}*5*$A{$_}*$B{$_}*$C{$_} } print$x/(@A*@B*@C)