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