<>;${$`}{$'+0}=${$'+0}{$`}=/ /for<>; for$i(0..49){for$j(@i=keys%$i){for$l(@i){for$k(keys%$l){ $x+=$i<$k&$j<$l&&$$j{$k}&!$$i{$k}&!$$j{$l} }}}} print$x/2