my @headers;

for $a (@list)
{
    open(my $data, ...);

    while (my $line = <$data>)
    {
        while (my $fields = $csv->getline( $data ))
        {
            push @headers, $fields->[$a];
        }
    }

    print LOG $headers[2], "\t";
    close $data;
}