while (<CFGFILE>) {  # read each line in turn to $_
   next unless /^\w/i;
   push (@server, $_); # do you realy want this array too ?
   ($machine, $default, $type, $connect)=split(/,/,$_);
   print "$machine, $default, $type, $connect";
  }
}