You are saying something like this:

...

my $dir_txt_files = "stuff/";

tie my @array, 'Tie::File', $dir_text_files or die "Could not open fil
+e '$dir_text_files' $!";

 if(@array) {
   unshift @array, 'NAME, ADDRESS, ZIPCODE' unless $array[0] =~ /^[a-z
+A-Z]/;

   # Remove any blank lines.
   @array = grep /\S/, @array;
}
 untie @array;

....
[download]

Thanks!