#!/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;