my $number = $numbers[$index];
        my @remaining = @numbers[ grep $_ != $index, 0 .. $#numbers ];