while (my $line = < $in_ph > ) {
    chomp $line;
    my@ fields = split(/,/, $line);@
    key = split(/_/, $fields[0]);
    $data[$count][0] = $fields[1];
    foreach(@key) {
        $data[$count][$k + 1] = $key[$k];
        $k++;
    }
    $k = 0;
    $count++;
}