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

##</code><code>##

LOOP:while (@ARGV) {
   chomp;
   my $user  = pop;
   my $muser = pop;