$tags[0] = lc($tags[0]); print Dumper(@tags)."\n"; if ($tags[0] eq '//'){ writeKV($fh_out,'highway','street_lamp'); exit 0; }elsif ($tags[0] eq '/none'){ writeKV($fh_out,'highway','street_lamp'); writeKV($fh_out,'ref','none');