#!/usr/local/bin/perl -w

use strict;
use warnings;

use Data::Dumper;

my @maintainers = qw/ worker@company.com manager@company.com /;

my %services = (
    service1 => { email => \@maintainers },
    service2 => { email => \@maintainers },
);

print Data::Dumper->Dump( [ \%services ], [qw/*services/] );

exit 0;


##</code><code>##

%services = (
   'service1' => {
      'email' => [
                  'worker@company.com',
                  'manager@company.com'
                 ]
   },
   'service2' => {
      'email' => $services{'service1'}{'email'}
   }
);