#!usr/bin/perl
use File::Copy;

print "What file would you like to edit? \n";
chomp($editfile = <>);
copy($editfile, "edit.dat") || die "Cannot copy file: $!";

open(INFO,"edit.dat") || die "Can't open edit.dat: $!";

$header = <INFO>;
undef $/;
$sequence = <INFO>;
my @twodarray = split(' ',$sequence);
$list[0] = \@twodarray;
$x=1;
for ($j=0; $j<=$#{$list[0]}; $j++) {
for ($k=0; $k<=$#list; $k++) {
	copy("edit".$x.".dat", "edit.dat");
	open(OTHER, ">edit$x.dat");
	seek OTHER, 0 ,0;
	$position = $list[$k][$j];
	$commentout = "\$";
	$commentout = $commentout .= $position;
	s/$position/$commentout/;
	print OTHER;
	$x++;
}
print "\n";
} 
close INFO;