Select Code to Download

...
$data{$master_key} ||= []; # if we haven't seen $master_key yet, creat
+e a fresh array
...
}
# Store our found set for that ID:
push @{ $data{ $master_key }}, \%this_set;