my @array_claim = map {
    cleaner($_)
} @{$dbh->selectcol_arrayref( 'select ACCOUNT# from datable')};