foreach my $account (@account_list) {
            ...