my @services = qw(MSSQLServerOLAPService SQLServerAgent MSSQLSERVER )
   foreach (@services){
       my $rtncd = system("net stop $_") >> 8;
         # some error checking & other code if wanted
   }

   foreach (reverse @services){
       my $rtncd = system("net start $_") >> 8;
         # some error checking & other code if wanted
   }