use strict;
use Win32::NetAdmin qw(LocalGroupIsMember LocalGroupAddUsers);

my $server = "Server";
my $newserver = "NewServer";

# this part is stumping me, so I'll just use an array for now
my @group_list = qw(group1 group2 group3 group4);

my @uid_list = qw(uid1 uid2 uid3 uid4);

foreach $uid (@uid_list) {
	foreach $group (@group_list) {
		LocalGroupAddUsers($newserver,$group,$uid) if (LocalGroupIsMember($server,$group,$uid));
	}
}