foreach ( qw(foo) ) { $_ = 1 }