Select Code to Download

open( USRS, "users.txt" ) or die "no users.txt: $!";
my @emailStrings = <USRS>;  # let's just read this once
...
        print "deleteuser $emailString\n"
    }
}

open( USRS, "users.txt" ) or die "no users.txt: $!";
while (<USRS>) {
...
    }
}
close USRS;