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