my $tmpcnt=0;
open TWO, ">", "./two.out";
	
foreach (@rawout) {
	print  "$tmpcnt: ". $_;
	print TWO "$tmpcnt: ". $_;
	$tmpcnt++;
}