#! /usr/bin/perl
use strict;
use warnings;

my $src = $ARGV[0];
my $dst = $ARGV[1];
my $klid = $ARGV[2];

# mtnkr,ta_pkt1,ta_pkt2,ta_pkt3,[..]
open(IN, "<", $src) or die $!;
# klid,mtknr,ta_name,ta_pkt1
open(OUT, ">", $dst) or die $!;
defined($klid) or die "klid not defined!";

my @ta_name;
while (<IN>) {
    chomp;
    my @l = split(/,/);
    if ($l[0] eq 'mtknr') { 
        @ta_name = @l; 
        next; 
    } 
    for (my $i = 1; $i < @l; $i++) {
        print OUT "$klid,$l[0],$ta_name[$i],$l[$i]\n";
    }
}
close IN;
close OUT;