Select Code to Download

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

[
    {
...
        'city'      => 'Miami'
    }
];

[
...
        'state'     => 'FL'
    }
];

use Tie::IxHash;
my $data = {};
...
my $stmt = "SELECT firstname, lastname, city, state FROM addresses ORD
+ER BY lastname";
$data = $self->dbh->selectall_arrayref($stmt, {Slice => {}});