Select Code to Download

$hoh->{$id} = { first_number  => $first_num,
                second_number => $second_num};

# Retrieve all IDS were first number is 2
my @ids = grep { $hoh->{$_}->{first_number} == 2 } keys $hoh;