for my $server (@servlist) {
   my @cmd = `pulldata -e $server`;
   for (@cmd) {
      ...