for 0 .. $#aliased {
   $a = $_ + rand @aliased - $_;
   $b = $aliased[ $_ ],
   $aliased[ $_ ] = $aliased[ $a ],
   $aliased[ $a ] = $b
}