my @folk = qw(Hibbs Daglish Schwartz Vroom),
           "Node Reaper";

my @folk = map {s/_/ /g; $_}
           qw(Hibbs Daglish Schwartz Vroom
              Node_Reaper);