use Data::Dumper;
my @accounts = BPP::ACCOUNT->getActiveUser($activeuser);
print Dumper(\@accounts);