foreach my $e ( @{$data->{channel}[0]{items}} ) {
   ...
   print $e->{title}[0] ...
  }