@converted_list = map{sprintf '0x%04x', $_} unpack ('v*', $line);
	
	foreach $sample (@converted_list) {
		print OUTFILE "$sample, ";
		$ctr += 1;
		if (($ctr % 8) == 0) {
			print OUTFILE "\n";
			$ctr = 0;
		}
	}