Select Code to Download

use DBI;
my %location = map {  $_->[0] => $_->[1] } @{$dbh->selectall_arrayref(
+'select id, location from ndmw_location')};