sub new { my $obj = bless{ Order => [], Items => {}, Config => {}, }, shift @_; my (undef, $itemValues) = @_ ; my @asList = %$itemValues; while (@asList) { my ($key, $val) = splice @asList, 0, 2;