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