($errorcodes .= "<li>First Name")       if !($Beta::FirstName);
($errorcodes .= "<li>Last Name")        if !($Beta::LastName);
($errorcodes .= "<li>Email Address")    if !($Beta::Email);

##</code><code>##

my ($key, $value);
my %required = {
        FirstName       => 'First Name',
        LastName        => 'Last Name',
        Email           => 'Email'
};
while ( ($key, $value) = each %required) {
        ($errorcodes .= "<li>$value")   if !($page->param("$key"));
}