#!/usr/bin/perl -p

BEGIN { @rsf = reverse sort (@fields = map {$_>0 ? $_-1 : $_} @ARGV); @ARGV = () }

chomp;
@F=split/\t/,$_,-1;
@cut = @F[@fields];
for (@rsf) { splice @F, $_, 1 };
$_=(join"\t",@F,@cut)."\n";