Help for this page
my @good_ones = grep $_->stars == 5, @dvds{ qw( Ray Alexnader Sideways Catwoman Avia +tor ) };
if ( exists $h{ wild_guess }->{ ssn } ) { ... }
keys %{ $h{ wild_guess } }