Select Code to Download

while (<DATA>){
    my @ju = split /\s+/, $_;
...
                       }
                     ],
        };

for my $top_key (keys %{ $self->{code} }){
    print "$top_key\n";
...
        print "\n";
    }
}