#this is going to take a very long time
while ($i <= $#profile) {
    $matrix[$j]->[$i] = $profile[$i];
    $j++;
}