if (exists($data->{channel}->{title})) {
  ...
  my $data->{channel}->{item}->[0]=$mydata;
  ...
}