barbie

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

my %result;

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

barbie

#!/usr/bin/perl -w
use strict;

#----------------------------------------------------------
# Additional Modules

use Crypt::SSLeay;
use Data::Dumper;
use DateTime;
use Getopt::ArgvFile    default => 1;