my $counter;
foreach my $elem ( keys %users ) {
    $counter++ and print "found $users{$elem} if ( $users{$elem}{sales} - $users{$elem}{payments} > 0;
}