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

##</code><code>##

$totalmarks = 0;
$totalmarks += $_ for (@marks);

##</code><code>##

        foreach $mark(@marks){
           $status=checkpass($mark);
        }