my @strings = qw(boy FALSE bird);
@strings = map { unless (/FALSE/) { "\"$_\"" }else{$_}} @strings;