for(my $i = 0; $i<$size; $i += 2){
	
	
	print FH "myMetal$i = dbCreatePath(cv list(\"@$metal_ref[$i]\"  \"drawing\") list(x1:y1 x2=(x1-(@$length_ref[$i]-1)):y1 ) @$width_ref[$i]) \n";
		
	}