use Data::Dumper;
...
(Dumper(@a) eq Dumper(@b))?print "same":print "different";