Select Code to Download

#!/usr/bin/env perl -l

...
for my $name (sort keys %data) {
    print join $sep => $name, map { $data{$name}{$_} || '' } @codes; 
}