my %data = ( balance => $grid[0][0], overdraft => $grid[0][1], status => uc($grid[0][2]), ); #### my %data = @_; my $amount = $data{amount} ? $data{amount} : undef; #### unless( $dbdata{balance}+$dbdata{overdraft} >= $amount ){ MyModule::Logger::log(BANK_ACCOUNT => "Debit FAILED user($self->{USER_ID}) reason($reason) amount($amount) because this failed: balance($dbdata{balance})+overdraft($dbdata{overdraft})>=amount($amount)"); return 0; } #### Debit FAILED user() reason(ORDER_PAYMENT) amount(1742) because this failed: balance(1742)+overdraft(0)>=amount(1742)