Select Code to Download

foreach my $paymentRow ( @$payments ) {
  foreach my $salesKey ( keys %$sale_items ) {
...
               $sale_items->{$salesKey}{ppid} );
        }
   }

$salesKey = 'key';
$sales_items = { $salesKey => {} };
...
             $sale_items->{$salesKey}{amount});

print("[", keys(%$sale_items), "]\n");  # [key]

     delete $sale_items->{$salesKey}
       and undef( $paymentRow ) 
...
              $sale_items->{$salesKey}{amount} 
            and $paymentRow->{ppid} == 
              $sale_items->{$salesKey}{ppid} );

     do {
       delete $sale_items->{$salesKey};
...
              $sale_items->{$salesKey}{amount} 
            and $paymentRow->{ppid} == 
              $sale_items->{$salesKey}{ppid} );