How to remove duplicates from a hash

#How to remove duplicates from a hash
use Data::Dumper;

my %hash = qw/ a z b z c x d x e y f g h i /;
print Dumper \%hash;
%hash = reverse %{{ reverse %hash }};
print Dumper \%hash;