Select Code to Download

my %stuff = (
    agency_id        => 0,
...
    /(contact_id)$/ ? $1 : $_, # ugh
    $result_ref->{$_}
) for grep $result_ref->{$_}, keys %stuff;