Select Code to Download

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

print map { $data{$_} } sort keys %data;

foreach my $val ( @data{ sort keys %data } ) {
    print $val;
}

print @data{ sort keys %data };