use YAML;

my $x = { Data => { a => 1, b => 2 } };
$x->{Trans} = [ $x->{Data}, $x->{Data} ];
print Dump( $x );
__END__
---
Data: &1
  a: 1
  b: 2
Trans:
  - *1
  - *1