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 => {}});