my $undefined;
while my $key (qw/A B C/) {
  $undefined = 1, last unless defined $hashref->{$key};
}
if ($undefined) {
  # at least one key undefined
} else {
  # all keys defined
}