my %h = (
    1 => ['A', 'B'],
    2 => ['B'],
    4 => ['X'],
    5 => ['V'],
);
print join(' ', @{ $h{1} }),"\n";