Some hint:

sub extract_randomly {
  my $n=int rand @begin;
  my $tmp=$begin[$n];
  splice @begin,$n,1;
  return $tmp;
}
[download]