use strict;
use warnings;

my %h;
my $HoA = {
	'music'       => [ 9, 53, 3,  15 ],
	'conferences' => [ 7, 56, 15, 53 ],
};

@h{@$_} = undef for values %$HoA;
my @ids = keys %h;

print "@ids";

# 53 56 3 7 9 15