delete($a[0]);

##</code><code>##

delete(\@a, 0);