my $_dir = 'C:/Documents and Settings/mydir/Desktop/current/Test_Files';
open(my $out, ">C:/Documents and Settings/mydir/Desktop/current/Test_Files/data.txt");
opendir my $dh, "$dir"; # read files in dir
#my $first_line = <IN>;
#chomp $first_line;
#my $i=1;
while(my $f = readdir($dh)){
	chomp;
	my @fields = split /\t/;
	my $well_position = $fields[0];
	my $sample = $fields[1];
	$sample =~ /(\d+)(.*)/;
	my $barcode = $fields[2];
	my $block_id = $fields[3];
	my $name = substr($block_id,11);
	my $outfile = "$out$name";
	print $outfile "$well_position\t$1\t$2\t$barcode\t$name\n";
}
closedir($dh);
</readmore>