#!/usr/bin/perl 
open ( NAMES, "name.txt") or die "Could not open names.txt.\n";
@list = <NAMES>;
print "@list";
while ($list[$y]) 
{  
open (OUT, ">$list[$y].txt") or die "cannot open file for writing: $!\n";
print " hello";
$y=$y+1
}

##</code><code>##

john
peter
outer