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