如何为MovieDB API使用TMDB-Perl包装器

我试图在MovieDB API中使用TMDB-Perl包装器，但我被卡住了

我不知道如何提取这些成分

举个例子

  #!/usr/bin/perl   
  use TMDB;
  use Data::Dumper qw(Dumper); 
  use CGI;
  use JSON;

  my $cgi = CGI->new();
  my $tmd= $cgi->param('tmd');

  # Initialize
  $tmd = "60304";
  my $tmdb = TMDB->new( apikey => 'XXXXXXXXXXX' );

  # HTTP HEADER

  print "Content-type:text/html\n\n"; 

  # Movie Data
  # ===========
    my $movie = $tmdb->movie( id =>  $tmd );


  my @cast = $movie->cast;
  foreach my $actor (@cast)
    {  
     print "<p>name " . Dumper($actor) . "</p>"; 

    }

从cpan页面上可以看到

print Dumper $movie->cast;

给

$VAR1 = {
      'cast_id' => 2,
      'order' => 0,
      'character' => 'Gretel',
      'name' => 'Gemma Arterton',
      'profile_path' => '/vOzCQfZOSYLdGjvyD7XDvCzXN4s.jpg',
      'id' => 59620
    };
$VAR2 = {
      'cast_id' => 3,
      'order' => 1,
      'character' => 'Hansel',
      'name' => 'Jeremy Renner',
      'profile_path' => '/l6CxIOFCjF65298teEJd5mCnPDO.jpg',
      'id' => 17604
    };

为每个演员重复

如何将其转换为类似的内容

my $name = 'Gemma Arterton';
my $id = '59620';

你快到了

foreach my $actor (@cast) {
    $name = $actor->{name};
    $id = $actor->{id};
    ...

    print "<p>name $name</p>";
    print "<p>id $id</p>";
    ...
}

foreach my$actor（@cast）{
$name=$actor->{name}；
$id=$actor->{id}；
...
打印“name$name
”；
打印“id$id
”；
...
}

Thanx@mob轻松，只要你知道怎么做！3个晚上我都在挣扎

foreach my $actor (@cast) {
    $name = $actor->{name};
    $id = $actor->{id};
    ...

    print "<p>name $name</p>";
    print "<p>id $id</p>";
    ...
}