use warnings;
use strict;

my %hoa = (
    a => [(1, 2, 3)],
    b => [(4, 5, 6)],
    c => [(7, 8, 9)],
);

print "@{ $hoa{b} }\n";

__END__

4 5 6