if (! exists $LPAR_config{$key}) {
  die "We don't have $key!\n";
}
if ($LPAR_config{$key}{frame} eq "frame2"
    and $LPAR_config{$key}{lpar_id} == 1) {
  print "Found it!\n";
}