my @fieldnames = qw( name rank serialnumber haircolor favoritebeverage );
foreach my $field (@fieldnames) {
    $fieldempty = 1 unless (defined $fields{$field});
}
# do something spectacular here unless a field is empty