foreach my $val (values(%component_id_tag)) {	
	my ($id, $type);
	$id = $reverse_component_id_tag{$val};
	$type = $component_id_type{$id};
	$_ = $val;
	id_cleaner();
	$val =  $_;
	print RAW $val . "\n" if (($type ne "1") and ($type ne "0"));
	print RAW $val . "\n";
    }
    close(RAW);
}


sub get_label_data {
    my ($name,@line,$i);