Added sorting scheme example as perl #250