...
foreach (@dat)
{
  s/number/NEWWORD/;
  print DATA $_;
}
close(DATA);