$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};
  ...

##</code><code>##

$VAR1 = { 'channel' => { 'item' => [ { 'epfl_is_internal' => 'False', 'link' => 'http://memento.epfl.ch/event/an-account-of-the-world-s-first-cubesat/', 'epfl_organizer' => 'eSpace ', 'pubDate' => 'Mon, 16 Mar 2020 14:00:00 +0100', 'description' => "Incl
...

##</code><code>##

if (exists($data->{channel}->{title})) {
 $mydata=$data->{channel}->{item};
 my $data->{channel}->{item}->[0]=$mydata;
 print "Only one item is present"; 
}
if ($data->{channel}->{item}->[$y]) {
 while (($data->{channel}->{item}->[$y])&&($y>-1)) {
  $keyword=$data->{channel}->{item}->[$y]->{epfl_keywords};
  ...

##</code><code>##

if (1) {
 $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};
  ...