my @good_ones =
  grep $_->stars == 5, @dvds{ qw( Ray Alexnader Sideways Catwoman Aviator ) };