$$1{$`}=${$`}{$1}=/ (.*)/for<>;for$i(0..49){for$j(@@=keys%$i){//,map$\+=$i<$'&$j<$_&&$$_{$'}*!$$i{$'}*!$$j{$_}/2,@@for keys%$j}}print