Select Code to Download

foreach my $key (sort keys %data) {
    print $data{$key} . $/;
}

print join('|', @data{sort keys %data});