Bin Tree on perl using Moose