print ident( { foo=>1, bar=>1, baz=>1 } );

sub ident {
    my $value = (values %{$_[0]})[0];
    for (values %{$_[0]} ) {
        return 0 unless $value eq $_;
    }
  return 1;
}