# Before the loop
my %action = (
  l => \&entry_list,
  a => \&entry_add,
  r => \&entry_rem,
  s => \&entry_sea,
  o => sub { print "Invalid Entry\n" },
);

# Within the loop
($action{lc()} || $action{o})->();