$ perl -wMstrict -Mexperimental=refaliasing -MData::Dump -le '
  my %h=("a".."f"); my %x; \$x{c}=\$h{c}; $x{c}="X"; dd \%h'
{ a => "b", c => "X", e => "f" }