I'm not sure if it's the fastest way but it works. I ended up using:
$sth->finish();
foreach (@$data) {
$res{$_->{Email}} = $_->{Email};
}
$DBH->disconnect();
return %res;
Code:
my $data = $sth->fetchall_arrayref({}); $sth->finish();
foreach (@$data) {
$res{$_->{Email}} = $_->{Email};
}
$DBH->disconnect();
return %res;