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

  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)."\n";

           if( $tags[0] =~ /^[0-9]{6}/ ){
             writeKV($fh_out,'amenity','vending_machine');
             writeKV($fh_out,'vending','cigarettes');
             writeKV($fh_out,'ref',$tags[0]);
			 writeKV($fh_out,'operator','tabaccoland');
			 
		   }elsif ($tags[0] eq '' && $tags[1] =~ /^[0-9]{1-6}/){
             writeKV($fh_out,'highway','street_lamp');	   
             writeKV($fh_out,'ref',$tags[1]);	
			 
           }elsif( $tags[0] =~ /^bj.*/ ){
....