#!/usr/bin/perl -w

use strict;

open (NAMES, "names.txt") or die "Failed to read names: $!";
while my $name (<NAMES>) {
  chomp $name;
  open(OUT, ">$name.txt") or die "Failed to write $name.txt: $!";
  print OUT " hellow";
  close OUT;
}
close NAMES;