($\,$,)=("\n","\t");

@a=(1..15);

print "Before:",@a;
print "Selection:",picksome(5,@a);
print "After:",@a;

sub picksome { map { splice @_, rand @_, 1 } (1..shift) }