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

##</code><code>##

if ( exists $h{ wild_guess }->{ ssn } ) { ... }

##</code><code>##

keys %{ $h{ wild_guess } }