6 my @lists = map { eval $_ } grep { length } <>;
7 say((1 + grep { compare($_, [[2]]) == 1 } @lists)
8 * (2 + grep { compare($_, [[6]]) == 1 } @lists));
17 if (!defined $lv && defined $rv) {
19 } elsif (defined $lv && !defined $rv) {
21 } elsif (!defined $lv && !defined $rv) {
24 } elsif (ref $lv && ref $rv) {
25 $res = compare($lv, $rv);
26 } elsif (ref $lv && !ref $rv) {
27 $res = compare($lv, [$rv]);
28 } elsif (!ref $lv && ref $rv) {
29 $res = compare([$lv], $rv);