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