my $n = 0;
{
  my $fb = n_to_fb( $n, scalar @my_list );
  last unless $fb;
  my @perm = fb_to_perm( \@my_list, $fb );
  print "@perm\n";
  ++$n;
  redo;
}