$|+;;
my @InpFiles = glob (*.dat");
foreach my $inpfile (@InpFiles) {
	my $outfilename;
	my $outputfile = "";
	open(HNDL, "$inpfile");
	open $outfilename, ">", $outputfile;
	$|++;
	while(my $tmpline = <HNDL>){
			print $outputfile "$parsedstring\n" or warn 'couldnot write to file';
			print $outputfile "$parsedsecondstring\n" or warn 'couldnot write to file';
		}
	}
	$|++; 
	close( HNDL );
	close( $outfilename );
	undef $outfilename;
}