You could use YAML, which would give you

use strict;

use Data::Dumper;
use YAML;

my $ref = Load(<<'XXX');
---
foo:
  - ~
  - bar:
      baz:
        - 123
XXX

print Dumper($ref);
[download]