#usr/bin/perl

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

open IN,'<',"part3.csv" or die "Can't open input file 'part3.csv': $!\n";
my $x;
my @studentnames;

sub quiz {
  return (sum(@_) / 300) * .10;
}
sub exam {
  return (sum(@_) / 200) * .20;
}
sub final {
  return (sum(@_) / 100) * .30;
}

while ($x = <IN>){
  if ($x =~ /^\w*\s\w*/){
    push @studentnames, +(split/,/, $x);
  }
}
 foreach (@studentnames){
  print "$_ \n";
}
close IN;