while( my $accnt = $allAccnt->next ) {
    $accnt->calcInterest() if $accnt->inCredit();
}