) {
push @headers, $1;
my $field = $2;
$field =~ s/[^\.]*\.?//; # Remove the table name if exists.
$field =~ s/[^\.]*\.{1}//; # Remove the table name if exists.
push @fields, $field;
}
for my $order (@orders) {
-