my @props = qw/ foo bar quz /;
for my $name (@props) {
    has $name => ( is => 'ro', ... );
}
# - or -
has [@props] => ( is => 'ro', ... );