Better late than never! Test::Deep might be somewhat overkill but it certainly does the job

use Test::Deep;

my $ha = bag(
  bag(1,2),  
  bag(5,5,5),
  bag(1,2),  
  bag(3,4)
);

my $hb = [
  [4,3],  
  [1,2],
  [2,1], 
  [5,5,5]
];

print eq_deeply($hb, $ha) ? "same\n" : "different\n";
[download]