Unless you're intent on reinventing the wheel, something like Sort::Tree looks like it does what you want.