Select Code to Download

#!perl -w

...
for my $right (qw(2.0 2.1 2.10 02.10 2.*)) {
    print join("\t", $left, $right, (grep { $right eq $_ } candidates(
+$left)) ? 'equal' : 'inequal'), "\n";
};