Select Code to Download

  $data = {
      foo => 3,
      bar => [ qw/ this that 3 / ],
...
      is eval "\$data->$path", 3,
        '... and each element should have the correct value';
  }

  use Scalar::Util 'reftype';

  my %path = (
...
      }
      return \@paths;
  }