LOOP:while (<>) {
   chomp;
   ($user, $muser) = map lc, split;