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