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