$choice = lc $choice; # ... later ... if ($choice eq 'l')