my %help = (
find => <<END,
Help for command 'find':

Don't forget to set the variable \$foo to the default
value of '$foo_default', or space rays will erase data on
your computer.
END
add => <<END,
Help for command 'add':

If you use this command, your bank balance will increase
by the specified amount. Advance two spaces and skip a turn.
END
);

my %alias = (
plus => 'add',
'?'  => 'find',
);

print $help{$alias{$ARGV[0]} || $ARGV[0]};