Select Code to Download

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