Select Code to Download

my $ha = [[1,2],
...
     if ( (join ' ', sort @ha) eq (join ' ', sort @hb) ) {  print "Equ
+al\n" }
     else { print "Not equal\n" }
}