while (my $line = <TEMP>)
{   
    my $A;
    my @column = split (/,/,$line);
    ...
}