Does your problem go away if you delete everything after __END__?

Update: unrelated, but normally, you can replace for/push with map. Change:

my @servers = ();

for my $i (1..9) {
    push @servers, "serverpd0${i}";
}
[download]

to:

my @servers = map { "serverpd0$_" } 1 .. 9;
[download]