my %msgs;
dbmopen %msgs, '/home/michaelg/dbmhelp', 0600;

print $msgs{mainhelp}; 	
# [...]
print $msgs{braindead_help};