$key_arr[0] = pack 'h2', unpack 'H2',
      ( $lock_arr[0] ^ $lock_arr[@lock_arr - 1]
        ^ $lock_arr[@lock_arr - 2] );
  for (my $i=1; $i<@lock_arr; $i++) {
    $key_arr[$i] = pack 'h2', unpack 'H2',
        ($lock_arr[$i] ^ $lock_arr[$i-1]);
  }