open (SERVERLST, "< svr_daily.csv");

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

sub ls_engine {
        my $ls_eng = $_[0];
        system ("wdmlseng -e $ls_eng");
        }