Your solution seems flawed to me: consider

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

These are clearly different, but your code still outputs "same" since it is discarding the entire original structure (and not only the order of elements).