use constant foo qw(a b c);
@a = $h{foo()}

##</code><code>##

use constant foo [qw(a b c)];
@a = $h{@{foo()}}