my $hash_ref = $dbh->selectall_hashref($sql,$key_field,{},@values);

##</code><code>##

for my $id (keys %{$hash_ref}) {
    print "ID => $id\n"; }