foreach my $vpopmailmachine ( @vpopmailmachines ) {
my($machine, $vpopdir, $vpopuid, $vpopgid) =
split(/\s+/, $vpopmailmachine);
foreach my $vpopmailmachine ( @vpopmailmachines ) {
my($machine, $vpopdir, $vpopuid, $vpopgid) =
split(/\s+/, $vpopmailmachine);