@words = ('foo', 'bar', 'and', 'whatelse');
map {print "$_\n"} @words;