my $rslt = $dbh->selectall_arrayref('select name,id from status');

my %hash = map @$_, @$rslt;

print Dumper \%hash;