The shortest, but far from the fastest:

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

If your arrays are not big, this is actually not a bad solution, and it is handy, but don't use it when the arrays are big :-)(I assume that you care the sequence of elements)