Select Code to Download

my %h = (
    HELP => $_ = sub {print "help\n"},
    "?"  => $_,
    SAVE => sub {print "save\n"},
);

my ($help, $save);
my %h = (
...
    SAVE => $save = sub {print "save\n"},
    EXIT => $save,
);