Perl script yardım

# ----------------------------------------
# satır satır girişler
$girdi = q~counter1,date,value1
counter2,date,value2
counter3,date,value3~;

# split ve map kullanarak stringi listeler listesine çevir.
@girdi = map { [ split /,/ ] } split /\n/, $girdi;

# ikili for dönügüsü ile matrisi 90 derece yatay çevir.
for(my $i = 0; $i < @{$girdi[0]}; $i++) {
    for (my $j = 0; $j < @girdi; $j++) {
        $cikti[$j][$i] = $girdi[$i][$j];
    }
}

# listeler listesini join ve map ile stringe dönüştür.
$cikti = join "\n", map { join ",", @$_ } @cikti;

print $cikti;
# ----------------------------------------