Select Code to Download

use strict;
use warnings;
...
    print "Full: $code_to_full{$_}\n";
    print "Field data: $field_by_code{$_}\n\n";
}