chargeCard( \%_billingInfo );
...
sub chargeCard {
  my $_billingInfo = shift;
  $_billingInfo->{key};
}