sub rm($@) {
   my ($e,@a) = @_;
   splice(@a,$e,1);
   return (@a);
}