for my $ki ( @$si ) {
      for my $kj ( @$sj ) {
        print "$ki - $kj\n";
      }
    }