open (SERVERLST, '<', 'svr_daily.csv')
    or die "Can't read from server daily CSV: $!";

foreach my $svr (<SERVERLST>) {
    chomp $svr;
    ls_engine($svr);
}

sub ls_engine {
    my $ls_eng = shift;
    system qw(wdmlseng -e), $ls_eng;
}