perl Array-Compare