my %tx;
for(1..2){ 
$tx{$_}{'object'}=Business::OnlinePayment->new('AuthorizeNet'); }