my @matrix;
my @profile;
open PROFILES, "profile/profile.db" or die "$!";
while (<PROFILES>) {
 @profile = split (/\t/, $_);
 while ($i <= $#profile) {
  $matrix[$j]->[$i] = $profile[$i];
  $j++;
 }
 $i++;
 $j = 0;
}