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