print $data->{channel}{item}[3]{title};
or
print $data->{channel}->{item}[3]->{title};