$y='{channel}{item}';

foreach my $e (@{eval("\$data->$y")}){...