my $merged_tables = Text::Table->new("\tTABLE 51 ","\tTABLE 53"); $merged_tables->add($table_51->select(0,1,2,3),$table_53->select(3,2,1,0)); print $merged_tables; #OUTPUT: TABLE 51 TABLE 53 NAME AGE TOPIC CLASS CLASS TOPIC AGE NAME ----- --- ----- ----- ----- ----- --- ----- Chiilak 17 2051 2053 anthropology 12 Bith Blistmok 14 metaphysics 2051 2053 Lylek Acklay 10 genetics 2051 2053 botany 13 Massiff 2053 Zuxo