Select Code to Download

my $result = {
    'A' => {
...
    },
    ...    
};

open my $fh, '<', $filename;

...
        $result->{$id}{$number} = 1;
    }
}

my %unique_numbers = ();
for (values %$result) {
...
   my $string = join " ", @fields;
   print $out_fh "$string\n";
}