my ($firstname, $lastname, @marks) = split m/,/, $line;