$ ./perl -Ilib -MHash::Util=bucket_array -MData::Dumper -le'my (%hash,%copy); %hash=(1..14); %copy=%hash; print Data::Dumper->new([bucket_array($_)])->Terse(1)->Indent(0)->Dump for \%hash, \%copy;' [['11'],['7'],2,['13','5'],['9','3'],['1'],1] [['11'],['7'],2,['5','13'],['3','9'],['1'],1]