$ perl -MBusiness::OnlinePayment -we 'for( 1..2 ) { \
   my $tx= Business::OnlinePayment->new('AuthorizeNet'); 
}'

##</code><code>##

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