#!/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 ] }, # shallow copy of @maintainers
    service2 => { email => [ @maintainers ] }, # another shallow ...
);

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

exit 0;

__DATA__

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