my $items = $data->{channel}{item};

for my $item ( @$items ) {
   print( $item->{title}, "\n" );
}
[download]