for my $element (@e2event) {
  print $element->{e2eventname};
}