from the desk of stinkpot

to read in an input file and convert its characters into a matrix:

open(SEQS,”$my_file”);
my @aas;
while() {
chomp;
@this_seq = split;
push(@aas,[@this_seq]);
}