my @list = do {no warnings; qw /foo #bar baz,/};