nested data structure work with references and you need to dereference them explicitely in Perl.

please try (untested)

    my $service = $config->{'services'};
    foreach $oneservice (@$service){
       print $oneservice->{'service'};
    }
[download]

see perlref for details about references and perldsc for nested data structures

HTH! :)