Help for this page
#!/usr/bin/perl -w ... } print "$_\n" foreach (@lname);
#!/usr/bin/perl -w ... print "$_\n" foreach (@lname); close FILE