【perl】清空一个数组

$#a=-1;

@a=();

undef @a;