use strict;
use warnings;
use Data::Dumper;
use Config::Scoped;

my $cs = Config::Scoped->new();
my @lines = ("data{all = [\n", <DATA>, "]}\n");
my $Config = $cs->parse(text => join('', @lines))->{data}->{all};
print Dumper($Config);

__DATA__
{
    name      = john
    location  = uk
    interests = [ programming cycling ]
}
# An ignored comment
{
    name      = laura
    interests = [ knitting tennis dancing ]
}
{
    location  = canada
    interests = [[ dogs horses ] cars]
}

##</code><code>##

$VAR1 = [
          {
            'interests' => [
                             'programming',
                             'cycling'
                           ],
            'location' => 'uk',
            'name' => 'john'
          },
          {
            'interests' => [
                             'knitting',
                             'tennis',
                             'dancing'
                           ],
            'name' => 'laura'
          },
          {
            'location' => 'canada',
            'interests' => [
                             [
                               'dogs',
                               'horses'
                             ],
                             'cars'
                           ]
          }
        ];