my ($xxy, $yyk);
for (@$data) {
  $xxy = $_ if $_->{code} eq 'XXY';
  $yyk = $_ if $_->{code} eq 'YYK';
  if ($xxy && $yyk) {
    $yyk->{expdate} = $xxy->{expdate};
    last;
  }
}