Select Code to Download

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

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