my @array = qw(value1 value2 value3);
print join(" OR ", map "a:$_", @array),"\n";
a:value1 OR a:value2 OR a:value3
map is a simple looping construct, which is useful
when you want to do apply some simple logic to every element of a
list without making too much clutter of your code.