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