print $item->{'title'} for(@{$data->{'channel'}->{'item'}});