sub table {

  my ($s, %table) = @_;

  my @table_gi_tr = listify $table{gi_tr} ;

  ...