# Uses string compare to determine uniqueness.
tie %hash, 'Tie::Hash::MultiValue', 'unique';

# Uses numerical compare to determine uniqueness.
tie %hash, 'Tie::Hash::MultiValue', unique => sub { $_[0] == $_[1] };