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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

print @data{ sort keys %data };