sub ident { my $value = ( values %{ $_[0] } )[0]; for ( values %{ $_[0] } ) { no warnings 'uninitialized'; return 0 unless !( defined $value xor defined $_ ) and ( $value eq $_ ); } return 1; } #### return 0 unless ( defined $value xor defined $_ ) and ( $value eq $_ );