## Input the matrix text file: 
print "\n\n Please type the filename(.txt) i.e. d1.txt: ";
 $DNAfilename = <STDIN>;
 chomp $DNAfilename;         
## To remove white space:
$DNAfilename=~ s/\s//gis;
# open the file, or exit
 unless ( open(DNAFILE, $DNAfilename) ) {
 print "Cannot open file \"$DNAfilename\"\n\n";
 exit;
 } # Line 10
 @a = <DNAFILE>;
@m2=@a;