my @list = qw( why does this not work);
map( { print $_."\n" }, @list );