@before = qw(1 2 3 4 5); @after = qw(1 2 4 5 3); for($n=0; $n <= $#before; $n++){ if($before[$n] <> $after[$n]){ print "Element $n changed\n"; last; } }