use strict;
use warnings;
use Tie::File;

my $filename = 'dir/people.txt';

tie my @array, 'Tie::File', $filename or die "Could not open file '$filename' $!";
$array[0] = 'Name, City, State, Zip' unless $array[0] =~ /\S/;
untie @array;