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