for my $line(@tablea) {