请教根据一定规则批量删除变量的方法1

比如 ，exam   数据  有   a1 a2 b c d 这样的变量，现在想把substr 第一个为a的变量全部删除掉  ，请教如何操作

马克马克

data test;
input a1 a2 b c d;
cards;
1 2 3 4 5 6
;
run;

data test;
   set test;
   drop a:;
run;

proc print;
run;