my $numpayments = scalar keys %.....
....
--$numpayments;
...
if(! $numpayments ) {
    print "Last record\n";
}