barbie

use strict;
use warnings;
use List::Util qw(sum);

my %result;

while (<>) {
  chomp;
  my $line = $_;
  my (undef, $topic, @scores) = split /\s*\|\s*/, $line;