#! /usr/bin/env perl
use strict;
use warnings;

my %masterlist = (
    foo => [ 1, 2, 3, ],
    bar => [ 'a', 'b', 'c', ],
);

my $servtype = 'bar';

for my $servers (@{$masterlist{$servtype}}) {
    print "$servers\n";
}

##</code><code>##

a
b
c