print join ', ', keys %{(grep \@{$_}{@XYZ}, {})[0]};