for my $element (@data)
	{
	   my ($lon,$lat) = $element->center();
       print "id: ".$element->id()."  - lon: ".$lon." - lat: ".$lat."\n";
	   print $fh_out "  <node id='".($element->id())."' action='modify' visible='true' version='1'  lat='".$lat."' lon='".$lon."'>\n";
	   # liegt überhaupt eine Info vor ?
       if($element->has_tag('addr:housenumber'))
	   {
	       print "Wert: ".$element->tag('addr:housenumber')->value()."\n";
	       # aufsplitten der Informationen
     	   my @tags = split(/\//,$element->tag('addr:housenumber')->value());
#	       print Dumper(@tags)."\n";
		   $tags[0] = lc($tags[0]);
	       #print Dumper \@tags;

           if( $tags[0] =~ /^[0-9]{6}/ ){
			 ....

		   }elsif ($tags[0] eq '' && $tags[1] =~ /^[0-9]{1,6}/){
             ....
			 
           }elsif( $tags[0] =~ /^bj.*/ ){
             ....

           }elsif( $tags[0] eq 'hs' ){
             ....

			 
           }elsif( $tags[0] =~ /^b[0-9]{1-3}/ ){
              # das müßte erkannt werden !
             writeKV($fh_out,'amenity','bicycle_parking');
		
...