Select Code to Download

select ...
order by account_name, username

my $last_account;
while (my $row = $sth->fetchrow_arrayref({ Slice => {})) {
...
    };
    print $row->{username};
};