use strict;
use warnings;
use XML::Simple;

my $xml = <<XML;
<table>
<Entry No="1">
    <lastname_>Dasd</lastname_>
    <firstname_>Dasd</firstname_>
    <street_>Dasd</street_>
    <houseno_>12</houseno_>
    <zip_>1231</zip_>
    <city_>Dasd</city_>
    <sex_>maennlich</sex_>
    <marital_>geschieden</marital_>
    <character_>Brille
Sommersprossen</character_>
    <description_>asdas
</description_>
  </Entry>
  <Entry No="2">
    <lastname_>Dasd</lastname_>
    <firstname_>Dasd</firstname_>
    <street_>Dasd</street_>
    <houseno_>12</houseno_>
    <zip_>1231</zip_>
    <city_>Dasds</city_>
    <sex_>maennlich</sex_>
    <marital_>geschieden</marital_>
    <character_>Brille
Sommersprossen</character_>
    <description_>asdas
</description_>
  </Entry>
</table>
XML

my $data = XMLin( $xml );
my @info = @{$data->{'Entry'}};
for my $entry (@info){
	print "$entry->{lastname_}, $entry->{firstname_}\n";
}