sub shuffle_2 {
  my @in = @_;
  my @out;
  push @out, splice(@in, rand @in, 1) while @in > 1;
  push @out, @in;
  @out;
}