I don't think

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

are supposed to compare equal, as your function will return.