sub sort_network {
  state @mem;
  my $cmp = $mem[@_] //= do {
    ...
  };
  my @res = @_[ @$cmp ];
}