my $stmt = "SELECT firstname, lastname, city, state FROM addresses ORDER BY lastname";
my $data = $self->dbh->selectall_arrayref($stmt, {Slice => {}});

##</code><code>##

[
    {
        'lastname'  => 'Smith',
        'city'      => 'Chicago',
        'state'     => 'IL',
        'firstname' => 'Jim'
    },
    {
        'city'      => 'Cleveland',
        'state'     => 'OH',
        'firstname' => 'Susan',
        'lastname'  => 'Jones'
    },
    {
        'state'     => 'FL',
        'lastname'  => 'Waters',
        'firstname' => 'Sam',
        'city'      => 'Miami'
    }
];

##</code><code>##


[
    {
        'firstname' => 'Jim',
        'lastname'  => 'Smith',
        'city'      => 'Chicago',
        'state'     => 'IL'
    },
    {
        'firstname' => 'Susan',
        'lastname'  => 'Jones',
        'city'      => 'Cleveland',
        'state'     => 'OH'
    },
    {
        'firstname' => 'Sam',
        'lastname'  => 'Waters',
        'city'      => 'Miami',
        'state'     => 'FL'
    }
];

##</code><code>##

use Tie::IxHash;
my $data = {};
tie %$data, 'Tie::IxHash';

my $stmt = "SELECT firstname, lastname, city, state FROM addresses ORDER BY lastname";
$data = $self->dbh->selectall_arrayref($stmt, {Slice => {}});