foreach my $entry ( $mesg->entries ) {