@arr = (1, 2, 3, 4, 5);
map {print "** $_ **\n";} @arr;