for my $customer (@{$cust_xml->{customer}}) {

	# Der Inhalt von 'first-name' und 'surname' wird in Großbuchstaben umgewandelt.
	# Das geht sehr einfach mit der in Perl eingebauten Funktion uc( ).
	
	foreach ($customer->{'first-name'}) {
		$curLine = "$_;";
	}

	foreach ($customer->{'email'}) {
		$curLine .= "$_;";
	}
	
	foreach ($customer->{'surname'}) {
		$curLine .= "$_.\n";
	}
	
	print $curLine;
	$curLine = ""
	
}