http://www.perlmonks.org?node_id=115517


in reply to 101 reasons to use strict;

Reason 2

You might be writing an e-commerce app, and have a routine that goes something like this:

sub accept_order { ($order_id, $credit_card_nbr, $payment_amount) = @_; save_order_in_database($ord_id, $pymt_amount); charge_credit_card($credit_card_no, $payment_amt); }