while (<CSV>){
	@fields = split /,/,$_;
	push @s, $fields[0];
	$structid=join "|",@s;
}