Select Code to Download

my @results = $search->find(
    id     => 'tt0114694',
    source => 'imdb_id'
);

foreach my $narray (@results){
  print $narray->{"movie_results"};
  print "\n";
  my @newarray = $narray->{"movie_results"};
  print $newarray[0];
  print "\n";

$VAR1 = {
              'tv_season_results' => [],
              'tv_results' => [],
...
                                   }
                                 ]
            };