sub my_sub {
    my %args = @_;
    for $key ( sort keys %args ) {
        print "$key = $args{$key}\n";
    }
    return 1;
}