阅读文件：

Open FILE, "filename.txt" or die $!;

    #create hash
    %hash = ();

    #read file - you have to do this for all files
    while (<FILE>) {

    if(first_row){
       $name = (split ':')[1];
    }else{
       $points = split ':'[1];
       push( @{$hash{$name}}, $points );
    }
}

在这里，你有一个hash：

A -> [80,60,50]
B -> [85,78,60]

你现在可以使用这个哈希来打印你的csv文件：
对于文件1：

open CSV1, ">", "1.csv" or die $!

foreach my $name( keys %hash )    
{
  $points = $hash{$name};
  print CSV1 $name + ";" + join(";", @{$points})
  print "/n";
}

对于文件2：

open CSV2, ">", "2.csv" or die $!

foreach my $name( keys %hash )    
{
  $points = $hash{$name};

  $testnumber = 0;
  foreach $point ( in @$points){
      print CSV2 $name + ";" $testnumber+1 + ";" + $point + "\n"; 
  }
}

希望这对你有帮助，如果有什么不清楚，你可以问。不要复制粘贴，它可以包含小错误，但我假设的思维方式是明确的
更新：“;“是因为csv在该字符上拆分列
请反馈