print OUT $pref . $number . "," . $prodvolumename . ",$tiffpath\\$pref$number.tif,";