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"));
}