Select Code to Download

my %errs = (
    name => 'Unspecified',
    email => 'Invalid'
...
foreach (keys %fields) {
    print $errs{$_} unless $fields{$_};
}