...
my $sumcredits;
while (my $pimrpt = <PM>) {
...
  $sumcredits+= $credits;
...
}
print "The sum of credits is $sumcredits\n";