perl -le '
use Data::Dump qw/dump/;
%hash = {
  a => 3,
  a => 2,
  a => 1,
  b => 6,
};
print dump \%hash;
'
{ a => 1, b => 6 }