Select Code to Download

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

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

keys %{ $h{ wild_guess } }