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