As there is redundant information in the sql statement and the list of columns, you could also do

...
my @columns = qw( id account_number date );

my $sql  = "select ".join( ",", @columns).
                " from my_table where id <>''
                order by date desc";

my $results = $self->_all_data($sql, \@columns);
...
[download]