$mydata=$data->{channel}->{item};
my $data->{channel}->{item}->[0]=$mydata;
if ($data->{channel}->{item}->[$y]) {
 while (($data->{channel}->{item}->[$y])&&($y>-1)) {
  $keyword=$data->{channel}->{item}->[$y]->{epfl_keywords};
  ...