Re^2: check if 2 values are equal

[eXile]

thanks, I eventually used your solution, with a minor modification:

sub isequal {
    return 0 if ( grep { ! defined( $_ ) } @_ ) == scalar @_;
    no warnings qw/uninitialized/;
    my %gadget;
    @gadget{ @_ } = ();
    return scalar keys %gadget == 1 ? 1 : 0;
}

(changed the != into a == in the first line in the function)