Select Code to Download

sub isequal {
    return 0 if ( grep{ !defined($_) } @_ ) != scalar @_;
...
    @gadget{ @_ } = ();
    return scalar keys %gadget == 1 ? 1 : 0;
}

use strict;
use warnings;
...
    }
    print "Testing $left, $right == ", $comp ? "equal\n" : "not equal\
+n";
}