my @remaining = @numbers; my ($number) = splice @remaining, $index, 1;