Select Code to Download

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

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

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