in reply to User input taking capslock into account

... exit if lc $user_input eq "e\n";

Alternatively:

... exit if uc $user_input eq "E\n";

(see lc)