Hi, I am using Tie::File, since it seems to be a straight forward way, could someone take a look if there is a better way of doing this?

tie my @array, 'Tie::File', $filename or die "Could not open file '$fi
+lename' $!";

# First if the first line does not start with "Name" it means there is
+n't any headers,
# add headers to the file:
unshift @array, 'Name, City, State, Zip' unless $array[0] =~ /Name/;

# Check the whole file if there is any blank lines, if there is, get r
+id of it
@array = grep /\S/, @array;

untie @array;
[download]

Thank you!