my %messages = (
	     'both' => 'Please enter both a Screen Name and a password',
	     'badchars' => 'Your Screen Name and password must contain only letters, numbers, -, or _',
	     'notfound' => 'The Screen Name or password is incorrect, please try again',
	     'emailnf' => 'Sorry!  Our system doesn\'t recognize that email address.  Please enter the same email address you used to register with the site',
	     'emailf' => 'Your Screen Name and password are on their way to you!',
	     'noemail' => 'You forgot to enter your email address',
	     'beenDel' => $beenDelErrMsg
	     );
while (($k=$v) = each (%messages))
{
	print "$k=$v\n";
}
foreach $i (values (%messages))
{
	print $i,"\n";
}