while(1) { $account_balance-- unless($account_owner eq 'CEO'); }